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NATIONAL   BUREAU   OF  STANDARDS 

The  National  Bureau  of  Standards'  was  established  by  an  act  of  Congress  March  3,  1901. 
The  Bureau's  overall  goal  is  to  strengthen  and  advance  the  Nation's  science  and  technology 
and  facilitate  their  effective  application  for  public  benefit.  To  this  end,  the  Bureau  conducts 
research  and  provides:  (1)  a  basis  for  the  Nation's  physical  measurement  system,  (2)  scientific 
and  technological  services  for  industry  and  government,  (3)  a  technical  basis  for  equity  in  trade, 
and  (4)  technical  services  to  promote  public  safety.  The  Bureau  consists  of  the  Institute  for 
Basic  Standards,  the  Institute  for  Materials  Research,  the  Institute  for  Applied  Technology, 
the  Institute  for  Computer  Sciences  and  Technology,  and  the  Office  for  Information  Programs. 

THE  INSTITUTE  FOR  BASIC  STANDARDS  provides  the  central  basis  within  the  United 
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tion — ■  Product  Evaluation  Technology  —  Electronic  Technology  —  Technical  Analysis 
—  Measurement  Engineering  —  Structures,  Materials,  and  Life  Safety  *  —  Building 
Environment  *  —  Technical  Evaluation  and  Application  4  —  Fire  Technology. 

THE  INSTITUTE  FOR  COMPUTER  SCIENCES  AND  TECHNOLOGY  conducts  research 
and  provides  technical  services  designed  to  aid  Government  agencies  in  improving  cost  effec- 
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FOREWORD 

This  computer  program  package  is  designed  to  assist  manufacturing  companies  in 
converting  to  the  metric  system.   The  starting  point  of  the  manufacturing  process 
is  the  engineering  drawing,  and  it  is  at  this  point  that  metric  conversion  should 
begin.  Accordingly,  the  package  is  devoted  to  the  specialized  area  of  converting 
between  metric  and  U.S.  customary  units  on  engineering  drawings. 

Were  it  not  for  the  rounding  of  converted  quantities,  the  mathematics  of  conver- 
sion would  be  trivial.   Even  with  rounding,  the  mathematics  is  simple.   However, 
rounding  is  extremely  important,  since  it  affects  the  tolerances  of  parts  pro- 
duced; and  the  controlling  of  tolerances  is  at  the  heart  of  the  manufacturing 
process. 

The  computer  programs  that  comprise  this  package  were  developed  by  Caterpillar 
Tractor  Co*  and  General  Motors  Corporation  and  turned  over  to  the  National 
Bureau  of  Standards  for  distribution  for  public  benefit  to  anyone  who  wants 
them.   It  is  hoped  that  by  making  them  available  to  the  public  the  processes 
of  metric  conversion  in  all  U.S.  manufacturing  companies  will  be  facilitated. 


Ruth  M.  Davis,  Ph.D. 
Director,  Institute  for  Computer 
Sciences  and  Technology 
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DISCLAIMER 

The  National  Bureau  of  Standards  (NBS)  has  tested  each  of  the  programs  in  this 
package  on  several  computers  and  found  them  to  be  functioning  as  described  in  the 
documentation  that  follows.  Machine  dependence  was  largely  eliminated  by  restric 
ing  the  programs  to  American  National  Standard  FORTRAN.  No  amount  of  testing  can 
anticipate,  however,  flaws  that  may  not  show  up,  except  under  very  special  circum 
stances,  or  may  be  caused  by  pecul^ai.  input  conditions.*  Therefore,  neither  NBS 
nor  the  companies  whose  programs  are  included  in  the  package  can  assume  responsi- 
bility for  loss  or  damage  due  to  (1)  malfunctioning  of  the  programs,  (2)  erroneou 
answers,  or  (3)  errors  in  documentation. 


•^Computer  systems  consist  of  hardware  and  sdftware  and  seldom  are  two  systems 
completely  alike.   NBS  tested  each  of  these  three  programs  on  several  systems. 
For  details  see  Section  I  -  INTRODUCTION. 
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PACKAGE  MAINTENANCE 
It  will  be  appreciated  if  reports  on  malfunctions  and  suggestions  for 
improvement  are  sent  to  NBS  in  order  that  purchasers  of  the  package 
may  be  notified  of  necessary  or  desirable  changes  in  either  the  tape 
or  the  manual.   This  applies  both  to  malfunctions  resulting  from  the 
programs  alone  and  to  those  due  to  possible  mismatches  between  the 
program  and  the  computers  or  operating  systems  upon  which  they  are  run. 

Other  programs  for  metric  conversion  may  be  added  to  the  package  in  the 
future.   Eligible  programs  would  be  ones  that  (a)  differ  significantly 
from  those  already  on  the  tape,  and  (b)  have  been  used  by  their  parent 
companies  enough  to  insure  that  they  are  practical  for  their  intended  use 
and  free  of  obvious  bugs.   If  additional  programs  are  added,  an  additional 
charge  to  cover  NBS  costs  may  be  necessary. 
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Computer  Program  Package  for  Metric  Conversion: 
Reference  Manual 

Ruth  K.  Anderson  and  Joseph  O.   Harris,    Jr. 


The  programs  in  this  package  are  designed  to  convert 
dimensions  and  other  quantities  appearing  on  engineering 
drawings  from  metric  to  U.S.    customary  units  and  vice  versa. 
They  were  developed  by  Caterpillar  Tractor  Co.   and  General 
Motors  Corporation.     In  addition  to  the  programs  themselves, 
the  package  contains  documentation  explaining  how  to  get  the 
programs  running  on  different  computers  and  how  to  use  them, 
and  test  problems  to  permit  users  to  verify  that  the  programs 
run  correctly  on  their  own  computers.      The  Caterpillar  program 
converts  31  different  metric  units  to  their     U.S.    customary  equiv- 
alents.    In  contrast,    the  General  Motors  programs  convert  in  both 
directions  but  work  with  millimetres  and  inches  only.     The  General 
Motors  programs  also  use  rounding  conventions  differing  womewhat 
from  those  employed  in  the  Caterpillar  program.     Both  the  Cater- 
pillar and  the  General  Motors  programs  are  written  in  American 
National  Standard  FORTRAN  and  are  suitable  for  use  on  a  wide 
range  of  computers  with  little  or  no  modification.     The  Caterpillar 
program  is  operated  in  batch  mode  while  the  General  Motors  pro- 
grams are  interactive. 

Keywords:     Caterpillar  Tractor  Co.  ;  computer  program;  docu- 
mentation; engineering  drawing;  General  Motors  Corporation; 
metric  conversion;  rounding;  test  problem;  tolerance. 


I   INTRODUCTION 

In  order  to  assist  engineers  and  manufacturers  in  the  transition  from  the 
traditional  U.S.  customary  system  of  measurement  to  the  metric  system  of  meas- 
urement, NBS  is  making  available  a  computer  program  package  to  perform  the  con- 
version from  one  system  to  the  other  with  carefully  controlled  accuracy.   Control 
of  accuracy  is  necessary  in  order  to  maintain  required  tolerances  at  minimum  cost, 


The  package  consists  of  computer  programs  developed  by  Caterpillar  Tractor  Co.  and 
General  Motors  Corporation,  documentation  explaining  how  to  get  the  programs  run- 
ning on  different  computers  and  how  to  use  them,  and  test  problems  to  permit  users 
to  verify  that  the  programs  run  correctly  on  their  own  computers. 

The  programs'  main  advantage  is  in  providing  the  design  engineer  with  control  over 
the  accuracy  of  the  conversion  process  and  the  tolerances  to  be  maintained.   In 
this  way,  errors  and  costs  that  would  be  unavoidable  in  a  shop  where  everyone 
makes  his  own  conversions  are  eliminated.   Control  at  the  design  level  also 
increases  productivity  by  speeding  up  the  manufacturing  process  and  providing 
an  automatic  self-checking  system  that  is  essentially  error-free. 

The  Caterpillar  part  of  this  package  consists  of  a  single  program  that  converts 
31  different  metric  units  to  their  U.S.  customary  equivalents.   There  are  two 
General  Motors  programs,  however.   One  of  them  converts  from  millimetres  to 
inches  while  the  other  converts  in  the  reverse  direction.   Dimensions  other  than 
millimetres  and  inches  are  not  converted.   The  General  Motors  programs  use 
rounding  conventions  somewhat  different  from  those  employed  in  the  Caterpillar 
program.   Both  the  Caterpillar  and  the  General  Motors  programs  are  written  in 
American  National  Standard  FORTRAN    and  are  suitable  for  use  on  a  wide  range 
of  computers  with  little  or  no  modification.   The  Caterpillar  program  is  operated 
in  the  batch  mode  while  the  General  Motors  programs  are  interactive. 

The  NBS  role  was  to  assemble  the  documentation  from  material  supplied  by  Cater- 
pillar Tractor  Co.  and  General  Motors  Corporation,  to  validate  the  programs,  and 
to  distribute  the  package.   The  NBS  validation  consisted  of  testing  to  determine 


that  the  programs  run  correctly  on  different  computers  and  that  they  perform  in 
accordance  with  the  documentation. 

More  specifically,  the  programs  were  tested  with  the  Bell  Telephone  Laboratories' 

[2] 
Verifier  Program    for  compliance  with  standard  FORTRAN,  and  in  addition,  each 

program  was  compiled  and  executed  on  several  different  computers  with  test  data. 

In  particular,  the  Caterpillar  Program  was  tested  on  an  IBM  370/165  under  OS  and 

on  a  CDC  6400  under  SCOPE  3.0.   The  GM  Programs  were  tested  on  an  IBM  370/165 

under  TSO,  and  all  three  programs  were  tested  on  a  UNIVAC  1108  under  EXEC  VIII 

and  on  a  PDP-10  under  DECsystem-10. 

II   CONVERSION  PACKAGE  COMPONENTS 

This  package  consists  of  two  parts — a  magnetic  tape  and  this  document. 

A.    TAPE 

The  tape  is  a  standard  1/2  inch  wide  600  foot  long  reel.   It  is  recorded  in 

FORTRAN  and  is  available  in  six  versions  so  far  as  numbers  of  tracks,  code, 

density  and  parity  are  concerned: 


No.  of 

Tracks 

Code 

Density 

Parity 

9 

ASCII 

800 

Odd 

9 

ASCII 

1600 

Odd 

9 

EBCDIC 

800 

Odd 

9 

EBCDIC 

1600 

Odd 

7 

BCD 

556 

Even 

7 

BCD 

800 

Even 

The  printed  label  on  the  tape  reel  identifies  the  version.   Hexadecimal  or  octal 
representations  of  the  FORTRAN  Characters  in  ASCII,  EBCDIC  and  BCD  as  used  on 
the  tape  are  given  in  Appendix  II. 


The  tape  contains  6  files.   The  first  is  a  description  of  the  contents  and  logi- 
cal organization  of  the  tape.   The  second  contains  Caterpillar's  METCO  program; 
the  third  contains  test  data  for  that  program;  the  fourth  gives  test  results 
based  on  this  data.   The  fifth  file  contains  the  GMMETR  program  and  the  sixth 
GMINCH. 

Each  file  except  the  last  is  terminated  by  one  tape  mark,  while  the  last  file  is 
terminated  by  two  tape  marks.   Programs  and  test  data  are  organized  in  80- 
character  card  images ,  blocked  9  card  images  per  physical  fao«»  "jlock,  and  test 
output  is  organized  into  three  132-character  print  line  images  per  physical 
tape  block. 

A  listing  of  the  tape  is  given  in  appendix  III. 

B.    DOCUMENTATION 

This  report  constitutes  the  documentation  portion  of  the  conversion  package.   The 
information  was,  for  the  most  part,  provided  by  the  program  developers,  Caterpillar 
Tractor  Co.  and  General  Motors  Corporation.   In  contrast  to  the  Caterpillar  program 
which  operates  in  batch  mode,  the  General  Motors  programs  are  run  in  an  on-line 
interactive  mode.   This  difference  is  reflected  in  the  varying  approaches  taken 
in  developing  this  documentation. 

The  salient  characteristics  of  each  program  have  been  summarized  using  the  recently 
developed  Federal  Information  Processing  Standard  Software  Summary  (SF185).   See 
figures  1,  2,  and  3.   More  detailed  descriptions  of  each  program,  including  some 
examples  and  program  listings,  will  follow  in  the  remainder  of  this  report. 


FEDERAL  INFORMATION  PROCESSING  STANn/VRD  SOFTWARE  SUMMARY 


01.  Summary  date 


Yr. 


Ilk 


Mo. 


Day 


Ql  5  2  1, 


04.  Software  date 


02.  Summary  prepared  by  (Name  and  Phone) 

Ruth  K.   Anderson,    C3Q1)   921-3551 


Yr. 


HA 


Mo. 


SLS. 


□ay 


2LU 


05.  Software  title 

Caterpillar  Tractor  Co. .Metric  Conversion  Progran, 


06.  Short  title 


METCO 


03.  Summary  action 

New  Replacement  Deletion 

an  d 

Previous  Internal  Software  ID 


07.   Internal  Software  ID 


08.  Software  type 

Automated  Data 
P]  System 

[X  Computer  Program 
\~]  Subroutine/Module 


09.  Processing  mode 

[~~|  Interactive 

Qg  Batch 

i~\  Combination 


10. 


General 


Application  area 


Specific 


Computer  Systems 
[~|  Support/Utility 
ra  Scientific/Engineering 
[~]  Bibliographic/Textual 


Management/ 
|    |  Business 
[~~|  Process  Control 
Q  Other 


11.  Submitting  organization  ana  aadress 

Institute  for  Computer  Sciences  and  Technology 

National  Bureau  of  Standards 

Washington,  D.C.   20234 


12.  Technical  contact(s)  and  phone 

Dr.  Joseph  0.  Harrison,  Jr. 
(301)  921-3551 


13.  Narrative      xhe  program  converts  dimensions  in  any  ot  31  different  metric  units  to 
equivalent  dimensions  in  U.S.  Customary  units.   Input  parameter  cards  allow  the  user  to 
select  rounding  conventions,  output  format  and  to  replace  or  augment  the  31  built-in 
metric  units  with  others  more  applicable  to  his  requirements.   Written  in  Standard 
FORTRAN,  the  program  is  essentially  machine  independent.   It  has  been  tested  on  the  UNIVAC 
L108,  the  PDP-10,  the  IBM  370  and  the  CDC  6400 


14.  Keywords 

Metric  Conversion 


IS.  Computer  manuf'r  and  model 

See  narrative 


16.  Computer  operating  system 

n/a 


17.  Programing  language(s) 

American  National  Stanc 
ard  FORTRAN  X3. 9-1966 


18.  Number  of  source  program  state- 
ments 

approximately  1200 


19.  Computer  memory  requirements 

12,000  words    (UNIVAC 

23.  Other  operational  requirements 


20.  Tape  drives 

0 


21.  Disk/Drum  units 
0 


22.  Terminals 

0 


24.  Software  availability 

Available  Limited 

B  D 


ln-house  only 
□ 


25.  Documentation  availability 

Available  Inadequate 

Q  □ 


ln-house  only 
□ 


26.   FOR  SUBMITTING   ORGANIZATION   USE 


FIGURE    1 
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FEDERAL  INFORMATION  PROCESSING  STANDARD  SOFTWARE  SUMMARY 


01.  Summary  date 


Yr. 


Mo. 


Day 


01  51  21  1 


02.  Summary  prepared  by  (Name  and  Phone) 

Ruth  K.  Anderson,  (301)  921-3551 


05.  Software  title 


04.  Software  date 


Yr.  |  Mo. 

HI 


Day 


01  51  21 


General  Motors  Corporation  Millimetre  to  Inch 
Conversion  Program 


06.  Short  title         GMMETR 


03.  Summary  action 

New  Replacement  Deletir<« 

g         □  □ 

Previous  Internal  Software  ID 


07.  Internal  Software  10 


08.  Software  type 

Automated  Data 
f~~ |  System 

p?  Computer  Program 
r~|  Subroutine/Module 


09.  Processing  mode 

§  Interactive 
Batch 
:~\  Combination 


10. 


General 


Application  area 


Specific 


Computer  Systems 
r— ]  Support/Utility 
jjn  Scientific/Engineering 
J  ~\  Bibliographic/Textual 


Management/ 
j  ~|  Businesr 
i  ~\   Process  Control 
r~]  Other 


11.  Submitting  organization  and  address 

Institute  for  Computer  Sciences  and  Technology 
National  Bureau  of  Standards 
Washington,  D.C.   20234 


12.  Technical  contact(s)  and  phone 

Dr.  Joseph  0.  Harrison,  Jr. 
(301)  921-3551 


13.  Narrative      Program  was  developed  by  General  Motors  Corporation  to  convert  millimetre 
dimensions  to  inches.   The  user  has  the  option  of  requesting  instructions  from  the  program 
in  entering  data  from  the  terminal.   The  program  is  written  in  a  portable  version  or  FORTRAN 
and  is  essentially  machine- independent.   It  has  been  Rested  on  the  UNIVAC  110S  the  PDP-1C 

and  the  IBM  370. 


14.  Keywords 


METRIC,  MILLIMETRE  CONVERSION 


15.  Computer  manuf'r  and  model 

See  narrative 


16.  Computer  operating  system 

n/a 


17.  Programing  language(s) 

American  National  Stan 
dard  FORTRAN  X3. 9-1966 


18.  Number  of  source  program  state- 
ments 

approximately  400 


19.  Computer  memory  requirements 

12,000  words  (UNIVAC 
1108) 


23.  Other  operational  requirements 


20.  Tape  drives 

1  (or  other  scratch 
external  device') 


21.  Disk/Drum  units 
0 


22.  Terminals 


24.  Software  availability 

Available  Limited 

£]  □ 


In-house  only 
□ 


25.  Documentation  availability 

Available  Inadequate 

0  D 


In-house  only 

D 


26.   FOR   SUBMITTING   ORGANIZATION   USE 
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^HFRAL  INFORMATION  PROCESSING  STANDARD  SOFTWARE  SUMMARY 


01.  Summary  date 


Yr. 


Mo.       Day 


7lAl0l5  ,2  ll 


04.  Software  date 


02.  Summary  prepared  by  (Name  and  Phone) 

Ruth  K.  Anderson,  (301)  921-3551 


Yr. 


IK 


Mo.      Day 

0l5,2ll 


OS.  Software  title 
General  Motors  Corporation  Inch  to  Millimetre 
Conversion  Proeram 


06.  Short  title 


GMINCH 


03.  Summary  action 

New  Replacement  Deletion 

Gel  □  □ 

Previous  Internal  Software  ID 


07.  Internal  Software  ID 


08.  Software  type 

Automated  Data 
|~|  System 

O  Computer  Program 
rn  Subroutine/Module 


09.  Processing  mode 

£J  Interactive 

f~]  Batch 

(~~|  Combination 


10. 


General 


Application  area 


Specific 


Computer  Systems 
r]  Support/Utility 

S  Scientific/Engineering 
Bibliographic/Textual 


Management/ 
I    [  Business 
!  ~~\  Process  Control 
[J  Other 


11.  Submitting  organization  and  address 

institute  for  Computer  Sciences  and  Technology 
National  Bureau  of  Standards 
Washington,  D.C.   20234 


12.  Technical  contact(s)  and  phone 

Dr.  Joseph  0.  Harrison,  Jr. 
(301)  921-3551 


13.  Narrative       Program  was  developed  by  General  Motors  Corporation  to  convert  dimensions  in 
inches  to  millimetres,   fhe  user  has  the  option  of  requesting  instructions  from  the  program 
in  entering  data  rrom  th«>  «-erminal.   The  program  is  written  in  a  portable  version  of 
FORTRAN  and  is  essentially  machine- independent.   It  has  been  tested  on  the  UNIVAC  1108, 
the  PDP-10  ana  ^he  IBM  370, 


14.  Keywords 

METRIC,    INCH  CONVERSION 


IS.  Computer  manuf'r  and  model 

See  narrative 


19.  Computer  memory  requirements 

12,000  words    (,unIVAC 
1108) 


16.  Computer  operating  system 

n/a 


17.  Programing  language(s) 
American  National  Stand 
ard  FORTRAN  X3. 9-1966 


18.  Number  of  source  program  state- 
ments 

Approximately  400 


20.  Tape  drives 

1  (or  other  scratch 

external  devices) 


21.  Disk/Drum  units 
0 


22.  Terminals 
1 


23.  Other  operational  requirements 


24.  Software  availability 
Available 


limited 


t3 


□ 


In  house  only 
□ 


25.  Documentation  availability 

Available  Inadequate 


0 


D 


ln-house  only 
□ 


26.   FOR  SUBMITTING  ORGANIZATION   USE 
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Ill   METCO  PROGRAM 

A.  ABSTRACT 

A  computer  program  which  accepts  metric  units  and  converts  them  to  U.S.  Customary 
units  has  been  developed  by  Caterpillar ^Tractor  Co.   The  program  is  written  in 
American  National  Standard  FORTRAN  and  is  being  made  available  to  the  general 
public  through  the  National  Bureau  of  Standards.   Both  the  input  metric  units  and 
the  output  equivalent  U.S.  Customary  units  are  printed  in  tabular  format  conven- 
ient for  attaching  to  or  copying  on  an  engineering  drawing. 

The  units  and  methods  in  the  program  are  specialized  to  the  needs  of  mechanical 
design  and  manufacture.   Even  though  the  designer  and  the  man  in  the  shop  may  be 
able  to  work  in  metric  measure,  others  in  the  process  flow,  such  as  material 
control  groups,  data  processing  groups,  purchasing  groups,  etc.,  will  require  a 
conversion  chart  in  order  to  be  able  to  conveniently  intermix  requirements  for 
metric  and  U.S.  Customary  designed  parts. 

B.  BACKGROUND  INFORMATION* 

This  computer  program  was  developed  by  Caterpillar  Tractor  Co.  to  generate  metric 
drawing  conversion  charts.   The  Company  has  turned  the  program  over  to  the  National 
Bureau  of  Standards  for  distribution  to  the  general  public.   While  Caterpillar 
Tractor  Co.  and  the  National  Bureau  of  Standards  believe  that  the  information  con- 
tained herein  is  complete  and  correct,  they  disclaim  any  and  all  liability  that 
may  still  exist  or  any  responsibility  for  updating  any  of  the  information. 


*This  section  was  written  by  Joseph  G.  Langenstein  of  Caterpillar  Tractor  Co. 


In  industry,  an  engineering  drawing  triggers  a  chain  of  events  that  ends  in  a 
product  that  can  be  sold  to  a  customer.   When  Caterpillar  Tractor  Co.  management 
decided  to  change  to  the  metric  system,  they  reviewed  the  experience  of  their 
overseas  plants  in  the  United  Kingdom  which  were  making  the  change  to  the  metric 
system.   They  also  reviewed  the  experience  of  other  companies  in  the  United  States 
which  were  dual  dimensioning  engineering  drawings.  From  this  review,  they  noted 
that  organizations  using  the  dual  dimensioning  practices  described  in  Society  of 
Automotive  Engineers  J390    had  not  achieved  a  change  in  their  staff's  thinking 
from  the  U.S.  Customary  to  the  metric  system.   The  engineer  making  the  drawing 
and  the  man  in  the  shop  making  the  part  were  no  closer  to  thinking  in  metric  units 
after  years  of  dual  dimensioning  than  they  were  prior  to  dual  dimensioning.   As 
a  result,  Caterpillar  has  taken  a  different  approach  to  providing  dual  capability 
on  engineering  drawings.   This  approach  entails  completing  the  engineering  drawing 
in  metric  units  and  then  generating  a  chart  to  provide  conversion  from  the  metric 
units  back  to  the  U.S.  Customary.   Society  of  Automotive  Engineers  (SAE)  Off  Road 
Vehicle  Council  (ORVC)  Report  HS  J1066    further  describes  metric  drawing 
practices. 

This  program  was  written  only  for  generating  the  conversion  chart  used  on  metric 
engineering  drawings.   Experience  has  shown  that  if  provided  with  the  proper  tools 
designers  can  design  new  parts  in  metric  measure  and  the  man  in  the  shop  can  make 
parts  from  the  metric  drawing.   Then  the  question  arises,  "Why  do  we  need  to  pro- 
vide any  conversion?"  The  following  conditions  justify  the  need  for  the  conver- 
sion chart: 


1.  Many  parts  are  procured  from  suppliers  who  are  still  operating  in  U.S. 
Customary  units.  At  their  option  they  may  produce  parts  to  the  U.S. 
Customary  units  shown  in  the  conversion  chart. 

2.  Engineers  need  to  know  the  conversion  equivalents  whenever  a  metrically 
defined  part  interfaces  with  a  U.S.  Customary  defined  part.. 

3.  Tooling  and  gauging  people  need  the  chart  for  quick  reference  to  exist- 
gauges  and  tools  that  may  be  applicable  to  the  new  metric  part. 

4.  Data  Processing  systems  such  as  those  used  in  inventory  control  may  not 
accept  both  units  of  measure  and  have  to  be  fed  U.S.  Customary  units 
until  the  systems  are  modified. 

5.  Service  literature  may  be  dual  dimensioned  and  should  continue  to 
provide  U.S.  Customary  units. 

It  was  decided  to  use  a  computer  to  generate  the  conversion  chart  in  order  to 
obtain  dual  capability  at  minimum  cost.  It  was  also  desired  to  be  able  to  use 
personnel  other  than  engineers  to  feed  the  information  into  the  computer.  The 
computer  program  in  this  package  is  the  third  one  developed  and  used  by  Cater- 
pillar Tractor  Co.  since  January  1973.  The  two  previous  programs  did  not  suf- 
ficiently fulfill  the  goal  of  making  the  program  operable  by  clerical  personnel. 

One  way  to  initiate  a  program  of  metrication  is  to  begin  designing  all  new  or 
redesigned  products  in  metric  measure  starting  in  the  layout  drawing  stage.   The 
term  "new  product"  does  not  necessarily  mean  all  new  parts.  Many  existing  parts 
are  carried  over  from  current  to  new  products,  particularly  if  the  new  product 
is  a  redesign  of  a  current  product.   These  parts  are  already  in  production  using 
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tooling  and  gauging  in  the  U.S.  Customary  units.   To  change  or  define  these  parts 
in  metric  units  would  accomplish  nothing  and  result  in  an  unnecessary  expense  with 
no  return.   Therefore,  existing  drawings  can  remain  in  inches  until  the  last 
stages  of  the  conversion  program;  when  most  drawings  and  manufacturing  equipment 
are  in  metric.   It  may  then  be  desirable  to  convert  the  drawings  of  inch  designed 
parts  that  are  still  being  manufactured. 

New  parts,  assemblies  and  groups  are  designed  and  dimensioned  in  metric  units. 
Ideal  metric  modules  can  be  used  unless  the  dimension  defines  a  size  or  interface 
requirement  that  originated  in  U.S.  Customary  units;  then  direct  conversions  of 
the  U.S.  Customary  units  must  be  specified.   The  end  result  of  this  practice  is 
a  "new  product"  consisting  of  parts  defined  in  both  U.S.  Customary  units  and 
metric  units.   However,  neither  the  part  nor  the  customer  can  tell  the  difference 
since  one  can  manufacture  and  measure  anything  in  either  measurement  system. 

C.    PROBLEM  DEFINIU  'N 

1.    Conversioa  capability 
The  METCO  program  converts  dimensions  in  any  of  31  different  metric  units  to 
equivalent  dimensions  in  U.S.  Customary  units.   Column  1  of  Figure  4  lists  the 
units  that  the  program  will  accept.   Column  2  lists  the  corresponding  U.S. 
Customary  units  of  the  output.   These  31  "standard"  conversions  are  built  into 
the  system. 

Several  options  exist  for  changing  or  adding  metric  units  to  the  program.   The 
user  may: 
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INPUT 
in 
Metric  Units 


OUTPUT 

in 

U.S.  Customary  Units 

INCH 

PSI 

PSI 

PSI 

DEGREE  FAHRENHEIT 

DEGREE  F  TOLERANCE 

POUND  (FORCED 

POUND  (FORCE) 

POUND  (FORCE)  FOOT 

OUNCE  (MASS)  INCH 

POUND  (FORCE) /INCH 

THOUSANDS  OF  INCH 

INCH 

INCH 

FOOT 

MILE 

SQUARE  INCH 

SQUARE  INCH 

SQUARE  YARD 

CUBIC  INCH 

OUNCE  (LIQUID) 

OUNCE  (LIQUID) 
QUART 

CUBIC  YARD 
OUNCE  (MASS) 
OUNCE  (MASS) 
POUND  (MASS) 
POUND  (MASS) 
OUNCE  (MASS)/ 

SQUARE  YARD 
GRAM/CUBIC 

CENTIMETRE 
POUND  (MASS)/ 

CUBIC  FOOT 


(1)  In  July  1974  Caterpillar  Tractor  Co.  changed  the  units  that  it  uses  for  desig- 
nating pressure  from  bar  to  kilopascal  and  from  millibar  to  pascal.  These 
changes  will  be  reflected  in  subsequent  editions  of  the  metric  conversion 
package. 

(2)  These  units  have  special  usage  at  Caterpillar  and  are  not  recommended  for  gen- 
eral use. 

(3)  At  Caterpillar  this  unit  is  used  in  both  the  metric  and  the  U.S.  Customary 
system  of  measurement.   In  applying  the  conversion  program  it  is  simpler  to 
enter  it  into  the  computer  than  to  make  an  exception  of  it. 

FIGURE  4 


1. 

MILLIMETRE 

(1)  2. 

BAR 

(1)  3. 

MILLIBAR 

4. 

MEGAPASCAL 

5. 

DEGREE  CELSIUS 

6. 

DEGREE  C  TOLERANCE 

7. 

NEWTON 

8. 

KILONEWTON 

9. 

NEWTON  METRE 

10. 

GRAM  METRE 

11. 

NEWTON /MILL IMETRE 

12. 

MICROMETRE 

13. 

CENTIMETRE 

(2)  14. 

DECIMETRE 

15. 

METRE 

16. 

KILOMETRE 

17. 

SQUARE  MILLIMETEE 

18. 

SQUARE  CENTIMETRE 

19. 

SQUARE  METRE 

20. 

CUBIC  CENTIMETRE 

21. 

CUBIC  CENTIMETRE 

LIQUID 

(2)  22. 

DECILITRE 

23. 

LITRE 

24. 

CUBIC  METRE 

25. 

GRAM 

(2)  26. 

HECTOGRAM 

27. 

KILOGRAM 

28. 

MEGAGRAM 

29. 

KILOGRAM/ SQUARE 

METRE 

(3)  30. 

GRAM/CUBIC 

CENTIMETRE 

31. 

KILOGRAM/ CUBIC 

METRE 

BUILT-IN  METCO  CONVERSION  CAPABILITY 
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a.  Replace  any  of  the  31  units  listed  in  Figure  4  with  other  units  that 
may  be  more  applicable  to  his  requirements. 

b.  Augment  the  list  of  metric  units  by  an  additional  18  to  a  total  of  49 
units.   This  may  be  done  in  two  ways.   One  is  to  add  the  additional 
units  on  a  permanent  basis  by  changing  the  program.   The  other  is  to  use 
special  identifier  cards  and  add  additional  units  for  an  individual  run 
as  explained  in  Section  D,  in  the  paragraph  entitled  Special  Identifier 
Card. 

The  program  is  specialized  to  the  conversion  of  millimetres,  the  most  commonly 
used  unit  of  measure  on  engineering  drawings.   It  assumes  that  any  input  dimension 
not  accompanied  by  an  identifier  is  in  millimetres  (default  condition) ,  and  it 
also  applies  a  special  rounding  convention  to  all  millimetre  conversions. 

2,   Input  Identifier 
Except  for  millimetres,  each  dimension  to  be  converted  by  METCO  is  entered  into 
the  program  with  a  label  identifying  its  metric  unit  of  measure.   As  noted  earlier, 
the  absence  of  a  label  indicates  to  the  program  that  the  dimension  is  in  milli- 
metres.  This  label  is  called  an  "Input  Identifier"  and  is  used  by  the  program 
to  select  the  conversion  factor  to  operate  on  the  dimension,  to  determine  the 
rounding  convention  to  be  applied  and  to  control  the  labelling  of  the  output. 
Shown  in  Figure  5  is  a  list  of  the  31  metric  units  the  program  will  handle,  along 
with  their  input  identifiers,  conversion  factors,  U.S.  Customary  units  and  the 
rounding  method  used  by  the  program.    The  input  identifier  must  be  entered 
exactly  as  shown  in  the  figure  observing  the  presence  or  absence  of  blanks.   In- 
correct identifiers  will  be  printed  at  the  beginning  of  the  output  as  errors. 
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Rounding 

Input 

Conversion 

U.S.  Customary 

Method 

(3) 

Metric  Unit 

Identifier 

Factor 

Unit 

Used 

1. 

MILLIMETRE 

(1) 

1/25.4 

INCH 

(2) 

(4) 

2. 

BAR 

BAR 

14.504 

PSI 

3 

(4) 

3. 

MILLIBAR 

MBAR 

.014504 

PSI 

1 

4. 

MEGAPASCAL 

MPA 

145.04 

PSI 

3 

5. 

DEGREE  CELSIUS 

DEG  C 

1.8  +  32 

DEGREE  FAHRENHEIT 

3 

6. 

DEGREE  C 

TOLERANCE 

DEG  TOL 

1.8 

DEGREE  F  TOLERANCE 

3 

7. 

NEWTON 

N 

.22481 

POUND  (FORCE) 

1 

8. 

KILONEWTON 

KN 

224.81 

POUND  (FORCE) 

1 

9. 

NEWTON  METRE 

NM 

"  .73756 

POUND  (FORCE)  FOOT 

1 

10. 

GRAM  METRE 

GM 

1.3887 

OUNCE  (MASS)  INCH 

2 

11. 

NEWTON /MILLIMETRE 

N/MM 

5.7101 

POUND  (FORCE) /INCH 

1 

12. 

MICROMETRE 

UM 

.039370 

THOUSANDS  OF  INCH 

2 

13. 

CENTIMETRE 

CM 

.39370 

INCH 

1 

(4) 

14. 

DECIMETRE 

DM 

3.9370 

INCH 

1 

15. 

METRE 

M 

3.2808 

FOOT 

1 

16. 

KILOMETRE 

KM 

.62137 

MILE 

2 

17. 

SQUARE  MILLIMETRE 

MM2 

.0015500 

SQUARE  INCH 

1 

±8. 

SQUARE  CENTIMETRE 

CM2 

.15500 

SQUARE  INCH 

1 

19. 

SQUARE  METRE 

M2 

1.1960 

SQUARE  YARD 

2 

20. 

CUBIC  CENTIMETRE 

CM  3 

.061024 

CUBIC  INCH 

1 

21. 

CUBIC  CENTIMETRE 

LIQUID 

CM3  LIQ 

.03381 

OUNCE  (LIQUID) 

1 

(4) 

22. 

DECILITRE 

DL 

3.3810 

OUNCE  (LIQUID) 

2 

23. 

LITRE 

LITRE 

1.0567 

QUART 

2 

24. 

CUBIC  METRE 

M3 

1.3080 

CUBIC  YARD 

1 

25. 

GRAM 

G 

.035274 

OUNCE  (MASS) 

1 

(4) 

26. 

HECTOGRAM 

HG 

3.5274 

OUNCE  (MASS) 

2 

27. 

KILOGRAM 

KG 

2.2046 

POUND  (MASS) 

2 

28. 

MEGAGRAM 

MG 

2204.6 

POUND  (MASS) 

1 

29. 

KILOGRAM/ SQUARE 

OUNCE  (MASS)/ 

METRE 

KG/M2 

29.494 

SQUARE  YARD 

3 

(4) 

30. 

GRAM/CUBIC 

GRAM/CUBIC 

CENTIMETRE 

G/CM3 

1.0000 

CENTIMETRE 

3 

31. 

KILOGRAM/CUBIC 

POUND  (MASS)/ 

METRE 

KG/M3 

.062428 

CUBIC  FOOT 

1 

(1)  No  input  identifier  is  necessary  for  millimetres. 

(2)  Rounding  method  for  millimetre  conversions  is  explained  in  Section  IIIC3. 

(3)  These  identifiers  do  not  necessarily  represent  approved  symbols  for  the  units  to 
which  they  refer.  Recommended  representations  in  upper  case  letters  for  most  of 
these  units  are  given  in  ISO/DIS  2955f6]. 

(4)  See  notes  to  figure  4. 

FIGURE  5.    METCO  SUMMARY  TABLE 
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3.   Rounding  Conventions 
The  METCO  program  uses  four  different  rounding  conventions  for  built-in  con- 
versions.  These  are  summarized  below.   It  should  be  pointed  out  that  the  user 
may  modify  these  rounding  conventions  by  making  simple  changes  to  the  program. 

a.   Millimetres 
Conversions  of  millimetre  dimensions  to  inches  are  rounded  to  one  decimal  place 
more  than  indicated  in  the  input  but  to  no  less  than  three  decimal  places.   The 
minimum  number  of  decimal  places  in  the  output  can  be  increased  or  decreased  by 
program  modification. 

Example:   Input  in  Millimetres  Output  in  Inches 


.020 

.0008 

.5 

.020 

50.0 

1.969 

b.   Other  Units 

Rounding  Method  1  (Code  -1) 

Converted  dimensions  are  rounded  to  three  significant  figures. 

Example:   Computed  Value  Rounded  Value 

.0034864  .00349 

.34864  .349 

3.4864  3.49 

34864.  34900. 

Rounding  Method  2   (Code  1) 

Converted  dimensions  are  rounded  to  one  decimal  place  but  retain  a  maximum  of 

three  significant  digits.   Zeros  are  used  as  required. 

Example:   Computed  Value  Rounded  Value 

.0034864  .0 

.34864  .3 

3.4864  3.5 

34864.  34900. 
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Rounding  Method  3   (Code  0) 

Converted  dimensions  are  rounded  to  whole  numbers  but  retain  a  maximum  of  three 

significant  digits.   Zeros  are  used  as  required. 

Example:   Computed  Value  Rounded  Value 

.0034864  0. 

.34864  0. 

3.4864  3. 

34864.  34900. 

In  the  program  itself,  these  three  methods  are  referred  to  by  the  codes  -1, 
1,  0  respectively. 

D.    APPLICATION  INFORMATION 

1.    Input 
Data  is  entered  in  units  of  data  sets  consisting  of  500  or  less  dimensions  each. 
Normally  a  data  set  will  consist  of  all  the  dimensions  on  a  single  drawing. 

Punched  cards  are  used  as  input  and  there  are  three  different  card  types  for  each 
data  set: 

Header  Card 

Special  Identifier  Card  (optional) 

Data  Card 
If  the  user  is  entering  dimensions  in  any  of  the  31  metric  units  ordinarily 
accepted  by  the  program,  he  will  use  one  header  card  followed  by  one  or  more 
data  cards.   If  he  is  inputting  dimensions  in  metric  units  not  included  in  the 
list  of  31,  he  must  complete  a  special  identifier  card  for  each  unit.   A  typical 
deck  set-up  for  a  single  data  set  would  appear  as  in  figure  6. 
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.* 

Data  Cards 

* 

t" 1 

/ 

A 

Special  Identifier  Cards 

/ 

- 

Header  Card 

FIGURE   6.         INPUT  CARDS 
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a.   Header  Card 
The  first  card  of  each  set  of  data  must  be  a  header  card.   It  contains  identifica- 
tion information  and  format  specifications  and  indicates  to  the  program  the  number 
of  special  identifiers  being  used.   The  contents  of  the  header  card  (with  appro- 
priate substitution  of  default  values)  is  stored  by  the  program  and  printed  with 
each  data  set  being  processed.   The  information  items  on  a  header  card  are 
described  below  and  the  card  format  is  illustrated  in  figure  7 . 


Item 


Part  Number 


Change 


Column  No.     Description 

1-8        Used  for  data  set  identification  only. 
Not  processed  by  program.   May  vary 
from  blank  to  8  characters. 

10-17       Used  for  data  set  identification  only. 
Not  processed  by  program.   May  vary 
from  blank  to  8  characters. 


Additions 


19 


Output  Columns  MM      28 


Output  Columns 
Other 


37 


Enter  "1"  if  data  are  to  be  added  to  an 
existing  chart.  Otherwise  leave  blank. 

Output  format  for  millimetre  conversion 
may  be  printed  in  1,  2,  3  or  4  pairs  of 
columns.   Enter  number  of  pairs  desired. 
If  left  blank,  output  will  be  printed  in 
1  pair  of  columns. 

Non-millimetre  conversions  can  be  printed 
in  1  or  2  parallel  sets  of  4  columns  each, 
Enter  number  of  sets  desired.   If  left 
blank,  output  will  be  printed  in  1  set  of 
4  columns . 


Added  Identifiers 


46-47 


Enter  the  number  of  special  identifiers 
being  added  for  the  set.   METCO  can 
accommodate  18  special  identifiers  for 
a  total  of  49. 


18 


a.   Haader  Card 


1  -  8 


10-17 


part*  no,    f 

chang* 


19 


28  i 


37 


UA-Un 


\ 1 


55 


added 
identifiers 


plet 


additions 


output 
eel.  MM 


eutput  oel 
ether 


b.   Special  Identifier  Card 


1  -  8  j  10-17 


19  -  27 


28-36    37  -  45 


metric 
identifier 


Conversion 

Factor 
U.S.  Customary  RQUnd  Unit 

Unit  4, 

Round 

Technique 

Cede 


c.   Data  Card 


1 


1  -  8 


10  -  17 


Dimension  1    J^ 


19  -  26 


28  -  35 


37-44   46-53 


Identifier  1 

Dimension  2 


Identifier  2  J, 

Dimension  3  V 

Identifier  3 


FIGURE  7 
CARD  FORMATS 
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Item 


Plot 


Remarks 


Column  No. 


55 


56-72 


Description 

A  special  option  can  be  added  to  the 
program  to  provide  output  through  a 
plotter.   This  option  is  not  included 
in  this  version  of  the  program. 

Enter  any  remarks  to  appear  on  output. 


b.   Special  Identifier  Card 
If  additional  metric  units  are  being  added  for  an  individual  run,  a  special  identi- 
fier card  must  be  furnished  for  each  unit.   The  information  items  to  be  on  a 
special  identifier  card  are  described  below,  and  the  card  format  is  illustrated 
in  figure  7b. 


Item 


Metric  Identifier 


U.S.  Customary  Unit 


Round  Technique  Code 


Column  No, 


l-l 


10-17 


19-27 


Conversion  Factor 


28-36 


Description 

Input  identifier  (metric).  Maximum 
of  8  characters. 

Output  identifier  (U.S.  Customary). 
Maximum  of  8  characters. 


Code 

Rounding  Technique 

-1 

3  significant  digits 

0 

whole  numbers 

1 

1  decimal  place 

2 

2  decimal  places 

3 

3  decimal  places 

4 

4  decimal  places 

5 

5  decimal  places 

With  codes  0-5  a  maximum  of  3 
significant  digits  is  retained. 
Examples  of  the  use  of  codes  -1, 
0,  1  are  given  in  section  IIIC3b. 

Enter  the  constant  (in  fixed  decimal 
format)  by  which  the  metric  unit  is 
multiplied  to  convert  it  to  a  U.S. 
Customary  Unit.   See  figure  5,  column 
headed  Conversion  Factor  (items  2 
through  31)  for  format  examples. 
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Item 


Column  No. 


Description 


Rounding  unit 


37-45 


Indicate  the  smallest  increment  that  the 
program  should  recognize  in  the  rounded 
dimension.   This  will  normally  be  one  unit 
in  the  last  place  retained,  but  not 
necessarily  so.   It  could,  for  example,  be 
5  units  in  the  last  place  retained  which 
would  permit  rounding  to  1/2  of  the  next 
larget  unit;  or  25  units  in  the  last  place 
retained  which  would  permit  rounding  to  1/4 
of  the  next  after  the  next  larger  unit. 
The  rounding  must  be  an  integral  multiple  of 
one  unit  in  the  least  significant  decimal 
place  retained.   It  should  be  left  blank 
with  round  technique  code  -1  but  always 
used  with  round  technique  codes  0-5. 
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Duplicate  metric  identifiers  are  not  recognized  by  the  program.  Duplicates  are 
accepted  as  input  and  each  occupies  a  storage  position  in  the  identifier  table. 
Only  the  first  definition  of  an  identifier  is  ever  accessed  by  the  conversion 
portion  of  the  program. 

The  number  of  special  identifier  cards  should  be  as  specified  in  the  added 
identifier  field  of  the  header  card.   If  it  is  not,  the  following  anomalies  will 
occur. 

If  the  number  of  special  identifier  cards  in  the  input  deck  is  less  than  that 
specified  by  the  added  identifier  field,  the  data  cards  which  follow  are  inter- 
preted as  special  identifier  cards  until  the  special  identifier  count  agrees  with 
its  specification.   The  program  then  executes  normally.   The  dimensions  on  the 
data  cards  which  have  been  interpreted  as  special  identifier  cards  will  not 
appear  on  the  output.   This  situation  can  be  recognized  by  noting  the  appearance 
of  garbage  in  the  last  temporary  entry  (or  entries)  of  the  table  of  conversion 
factors. 

If  the  number  of  special  identifier  cards  in  the  input  deck  exceeds  the  number 
specified,  the  cards  in  excess  of  the  specification  are  interpreted  as  data  cards. 
The  misinterpreted  special  identifier  cards  will  each  result  in  an  illegal 
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identifier  printout.   Furthermore,  each  dimension  which  requires  an  unaccepted 
special  identifier  card  will  cause  an  illegal  identifier  printout. 

If  the  number  of  special  identifiers  to  be  added  plus  the  number  of  identifiers 
resident  (thirty  one  plus  those  added  in  previous  problems  of  the  same  run) 
exceeds  forty  nine,  the  fiftieth  and  each  succeeding  special  identifier  card 
are  printed  with  an  appropriate  error  message.   Each  dimension  which  requires 
an  unaccepted  special  identifier  card  will  cause  an  illegal  identifier  print. 

c.   Data  Card 
The  data  card  contains  the  dimensions  to  be  converted  and  their  associated  identi- 
fiers.  Up  to  three  pairs  of  dimensions  and  identifiers  may  be  entered  per  card. 
If  a  dimension  is  in  millimetres,  the  identifier  must  be  left  blank.   The  infor- 
mation items  for  a  data  card  are  described  below,  and  the  card  format  is  illus- 
trated in  figure  7c. 


Item 


Dimension  1 


Column  No. 


1-8 


Description 

Enter  dimension  to  be  converted.   Accep- 
table characters  are  0  through  9,  . ,  +, 
Leading  or  trailing  blanks  have  no 
meaning  but  blanks  must  not  appear  imbed- 
ded within  the  characters  of  the  dimensions 
field.   Significant  zeros  must  be  entered 
because  round-off  is  based  on  the  number 
of  digits  to  the  right  of  the  decimal. 
The  dimensions  may  be  placed  anywhere 
within  the  field.   The  number  of  charac- 
ters including  decimal  point  and  sign 
cannot  exceed  8  characters. 
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Item 


Identifier  1 


Column  No, 


10-17 


Dimension  2 

19-26 

Identifier  2 

28-35 

Dimension  3 

37-44 

Identifier  3 

46-53 

Description 

This  item  must  be  chosen  from  the  list  of 
acceptable  identifiers  and  entered  exactly 
as  shown  on  the  list  in  figure  5  or  in  the 
identifier  field  of  the  Special  Identifier 
Card.   The  first  character  of  the  identi- 
fier must  be  in  the  first  character 
position  of  the  field. 

Same  as  Dimension  1 
Same  as  Identifier  1 

Same  as  Dimension  1 
Same  as  Identifier  1 


Any  number  of  data  sets,  each  containing  as  many  as  500  dimensions,  may  be  proc- 
essed as  a  single  run.   Data  sets  must  be  separated  by  STOP  in  an  identifier 
position.   The  run  is  terminated  when  $E0P  is  detected  in  card  columns  1  through 
4.   No  more  data  will  be  accepted. 

If,  by  mistake,  there  are  more  than  five  hundred  dimensions  in  a  set,  the  five 
hundred  and  first  and  all  subsequent  dimensions  are  printed  with  appropriate 
error  messages.   The  program  executes  normally  with  the  five  hundred  accepted 
dimensions. 

The  output  of  this  program  can  be  used  in  one  of  several  ways  depending  on  the 
system  selected  by  the  user.   (1)  Used  as  a  separate  document  or  Page  2  of  a 
drawing.   (2)  The  information  could  be  copied  by  a  desk  copier  onto  an  adhesive 
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backed  plastic  sheet  and  then  put  on  the  engineering  drawing.  (3)  The  output  could  be 
typed  directly  onto  the  adhesive  backed  plastic  sheet  and  then  put  on  the  drawing.  The 
option  depends  on  the  equipment  and  the  required  distribution  of  the  conversion 
chart. 

A  special  option  can  be  added  to  the  program  to  provide  output  through  a  plotter. 
This  option,  however,  is  not  included  in  the  program  being  furnished.   Such 
hookups  vary  too  greatly  to  provide  this  option. 

2.   Output 
Output  from  the  METCO  program  consists  of: 

(1)  metric  to  U.S.  Customary  conversion  tables  (Tables  showing  U.S. 
Customary  units  and  their  corresponding  metric  values  for  specific  drawings.) 

(2)  identification,  error  messages  and  (under  certain  conditions)  a 
table  of  conversion  factors  employed. 

These  two  items  are  addressed  in  the  order  given  in  this  document  for  expository 
reasons.   They  appear  on  the  computer  printout  in  reverse  order.  All  of  this 
material  is  referred  to  collectively  on  the  computer  printout  as  "Metric — U.S. 
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Customary  Conversion  Table".   The  pagination  of  the  output  is  oriented  to 
these  two  types  of  information  and  they  appear  on  separate  output  pages.  A  brief 
description  of  the  components  of  each  type  of  output  appears  below. 

a.   Metric  to  U.S.  Customary  Conversion  Tables 
This  is  the  output  to  be  attached  to  or  associated  with  an  engineering  drawing. 
If  a  data  set  contains  both  millimetres  and  other  metric  units,  two  tables  will 
be  printed  -  each  on  a  separate  page  and  each  properly  identified  with  "part 
number"  and  "change".  A  blank  line  appears  after  each  5  lines  of  output  in  the 
table.   A  string  of  asterisks  (********)  in  the  U.S.  Customary  units  field  means 
that  the  converted  dimension  overflows  the  8  characters  permitted  by  its  output 
format. 

Millimetres  to  Inches  -  The  table  is  printed  in  a  2  column  array  (input  milli- 
metres and  output  inches  respectively),  and  sorted  in  ascending  order  by  input 
millimetre  dimension.  As  many  as  four  2-column  arrays  may  be  printed  across  the 
page  depending  on  the  value  specified  for  "output  columns  MM"  on  the  header  card. 

Other  Units  -  Table  is  printed  in  a  4  column  array  consisting  of  (1)  input  dimen- 
seion,  (2)  input  metric  unit,  (3)  output  dimension,  and  (4)  output  U.S.  Customary 
unit.   Data  is  sorted  first  by  input  dimension  and  then  by  input  metric  unit.   A 
maximum  of  two  4-column  arrays  may  be  printed  across  the  page. 
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b.    Identification,  Error  Messages  and  Table  of  Conversion  Factors 
The  program  prints  "METRIC  -  U.S.  CUSTOMARY  CONVERSION  TABLE"  followed  by  the 
fields  of  the  input  header  card  with  appropriate  column  headings.  Default  values 
are  substituted  for  blank  fields  on  the  header  card. 

Error  Messages  -  This  information  appears  only  if  there  has  been  an  illegal 
entry  in  one  or  more  of  the  input  data  items.   Error  messages  are  of  two  types: 
"illegal  identifier"  and  "illegal  character  in  dimensions". 

Table  of  Conversion  Factors  -  This  table  is  printed  only  if  special  identifiers 
have  been  added  for  the  data  set.   It  is  preceded  by  a  count  of  the  number  of 
units  that  it  currently  contains.   The  count  covers  30  of  the  31  built-in 
conversions  (millimetres  to  inches  are  not  counted)  and  any  special  identifiers 
in  either  the  current  data  set  or  previous  data  sets  for  the  run. 

The  table  is  comprised  of  the  current  version  of  the  conversion  table  with 
headings.   Special  identifiers  are  labeled  as  temporary  entries. 

3.    Sample  Computations 
Eleven  sample  computations  are  given  in  files  3  and  4  of  the  conversion  package 
tape.   The  first  three  of  the  samples  are  reproduced  and  briefly  commented  on 
here. 
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Sample  1 


Comments 


Input 


Non-millimetre  dimensions  only.  One  set  of  data  per 
data  card.  No  added  identifiers. 


Output 


Identification  and  Errors 

Illegal  identifier  "GRAM"  was  used.   Should  have  been 

"G".   See  figure  5. 


Output 


Conversion  Table 

One  4-column  array  called  for.  Dimensions  associated 

with  the  illegal  identifier  were  not  converted. 
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INPUT 


959721 

13. 

.85 

GRAM 

3.5 

LITRE 

14. 

LITRE 

17. 

LITRE 

22.5 

LITRE 

-31.5 

DEG  C 

2.0 

DEG  TOL 

-10.0 

DEG  C 

29.5 

LITRE 

3*. 

LITRE 

170. 

LITRE 

65.5 

LITRE 

68. 

LITRE 

75. 

LITRE 

75.5 

LITRE 

3060. 

GRAM 

106. 

LITRE 

148. 

LITRE 

519. 

LITRE 

STOP 

SAMPLE  1 


121700 
121800 
121900 
122000 
122100 
122200 
122300 
122400 
122500 
122600 
122700 
122800 
122900 
123000 
123100 
123200 
123300 
123400 
123500 
123600 
123700 


Sample  1 
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OUTPUT   -   IDENTIFICATION  AND  ERRORS 


METRIC    -    U.S.    CUSTOMARY    CONVERSION    TAPLE 


NUMBER  df 

NUMBER  OF 

PART 

OUTPUT  COLUMNS 

ADDED 

NUMBER 

CHANGE 

ADDITIONS 

MM            OTHrR 

IDENTIFIERS 

PLOT 

REMARKS 

9S9721 

13. 

n 

1              1 

0 

SAMPLE  1 

LISTED    BELOW    ARE    THE    INPUT    nATA    CARD(S)    WITH    SOME    TYPE    OF    ERRORS).. 
DIMENSION         IDENTIFIER  ERROR    TYPE 


.85 
3060. 


GRAM 
GRAM 


ILLEGAL    IDENTIFIER 
ILLEGAL    IDENTIFIER 


OUTPUT  -   CONVERSION   TABLE. 


PART 

9S9721      CHANGE   13. 

DIM 

UNITS 

DIM 

UNITS 

-<to.o 

DEG  C 

-uo. 

DEG 

F 

-31.5 

DEG  C 

-25. 

DEG 

F 

2.0 

OEG  TOL 

<*. 

DEG 

TOL 

8.5 

LITRF 

9.0 

OT 

14. 

LITRE 

11.8 

GT 

17. 

LITRF 

18.0 

OT 

2*. 5 

LITRF 

23.8 

QT 

29.5 

LITRE 

31.2 

QT 

34. 

LITRF 

35.9 

GT 

£5.5 

LITRE 

69.2 

OT 

68. 

LITRF 

71.9 

QT 

75. 

LITRE 

79.3 

QT 

75.5 

LITRF 

7°.  8 

QT 

106. 

LITRE 

112. 

QT 

1*8. 

LITRF 

156. 

QT 

170. 

LITRF 

180. 

QT 

519. 

LITRF 

548. 

GT 

Sample   1    (Continued) 
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Sample  2  Comments 

Input         A  combination  of  millimetre  and  non-millimetre  dimensions. 

The  number  of  sets  of  data  per  card  data  varies  from  one 

to  three. 

No  added  identifiers 
Output        Identification  and  Errors 

Output  calls  for  4  sets  of  output  data  for  millimetres  and 

2  sets  of  output  data  for  other  units. 

Errors  in  both  identifier  and  dimension  fields  are  flagged, 

Output        Converted  Data  in  2  tables.  Millimetres  to  inches  and 
"Other". 
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INPUT 


3F1341 

15 

1.0 

4.0 

2.0 

1000. 

MPA 

100. 

0. 

100. 

DEG 

C 

3. 

19. .35 

N/MM 

1 

.35 

.0025 

.621 

47.33 

77.0 

85.0 

1 54 . 0 

2. 

BAP 

.4 

4. 

LITRE 

.1 

2. 

KM 

.1 

20. 

DEG 

C 

2. 

10. 

N  M 

2. 

5.6 

35. 

ML 

30.860 

0.013 

5.6 

14.25 

.5 

1.5 

11.00 

75.0 

REF 

5. 

DEG 

TOL 

7.0 

DEG  TOL 

20.00 

2.0 

ML 

1.5 

ML 

3.0 

ML 

5.0 

ML 

-31.5 

DEG 

C 

-40.0 

DEG 

C 

2.0 

DEG 

TOL 

P-.O 

DEG 

TOL 

4.0 

DEG 

TOL 

8.0 

ML 

12.0 

ML 

2.0 

KM 

3.0 

KM 

8.0 

KM 

11.25 

KM 

22.55 

KM 

22.0 

17.50 

50. 

KG 

10. 

N 

57.0 

2.40 

A 

128.0 

38.10 

32.0 

447.22 

DEEP 

12.25 

-12.00+ 

25.17 

21.8 

20.83 

19.8 

16.0 

6.35 

1.5 

.76 

50.0 

17.0 

0.5 

18.0 

0.05 

19.0 

0.051 

19.0 

0.0505 

SAMPLE  2 


DEG  TOL 


STOP 


Sample  2 


123800 

123900 

124000 

124100 

124200 

124300 

124400 

124500 

L24600 

124700 

124800 

12490O 

125000 

125100 

125200 

125300 

12540" 

125500 

125600 

125700 

125800 

12590O 

126000 

126100 

126200 

126300 

126400 

126500 

126600 

126700 

126800 

126900 

127000 

127100 

127200 

127300 

127400 

127500 

127600 

127700 

12780O 

127900 

128000 

128100 

12820" 

128300 

128400 

12850" 

128600 

128700 

128800 

128900 

129000 

129100 

129200 

129300 

129400 

129FS0" 

129600 
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OUTPUT   -   IDENTIFICATION  AND  ERRORS 
METRIC    -   U.S.    CUSTOMARY    CONVERSION    TABLE 


NU"BER  OF 

NUMRER  OF 

PART 

OUTPUT  COLUMNS 

ADDEO 

NUMBER 

CHANGE 

ADDITIONS 

MM             OTHER 

IOENTTFIERS 

PLOT 

REMARKS 

3F1341 

IS 

1.0 

4.0         ?.o 

0 

SAMPLE  2 

LISTED    BELOW    ARE    THE    INPUT    OATA    CARP(S>    WITH    S«ME    TYPE    OF    FRROR(S), 


DIMENSION 

IDFNTIFIER 

ERROR  TYPE 

100. 

0. 

ILLEGAL 

IDENTIFIER 

10. 

N  M 

ILLEGAL 

IDFNTIFIER 

35. 

ML 

ILLEGAL 

IDENTIFIER 

75.0 

REF 

ILLEGAL 

IDENTIFIER 

2.0 

ML 

ILLEGAL 

IDENTIFIER 

1.5 

ML 

ILLEGAL 

IDFNTIFIER 

3.0 

ML 

ILLEGAL 

IDENTIFIER 

5.0 

ML 

ILLEGAL 

IDENTIFIER 

P-.O 

OEG 

TOL 

ILLEGAL 

CHARACTER  IN  DIMENSION 

8.0 

ML 

ILLEGAL 

IDENTIFIER 

12.0 

ML 

ILLEGAL 

IDENTIFIER 

2.40 

A 

ILLFGAL 

IDENTIFIER 

447.22 

DEEF 

* 

ILLEGAL 

IDENTIFIER 

12.25 

-12. 

00+ 

ILLEGAL 

IDENTIFIER 

OUTPUT   -   CONVERSION  TABLES 


PART  3F1341      CHANGE   15 
MM         INCH  MM 


TNCH 


MM 


TMCH 


MM 


PART  3F1341      CHANGE   15 
DIM        UNITS      DIM 


INCH 


.0025 

.00010 

.76 

.050 

17.  SO 

.689 

38.10 

1  .500 

.013 

.0005 

1.5 

.059 

18.0 

.709 

47.33 

1  .863 

.05 

.002 

2. 

.079 

19.0 

.748 

50.0 

1.96Q 

.0505 

.00199 

3. 

.118 

19.8 

.780 

57.0 

2.244 

.051 

.0020 

5.6 

.220 

20.83 

.820 

77.0 

3.031 

.1 

.ow 

6.^5 

.250 

21.8 

.858 

85.0 

3.346 

.35 

.014 

11.00 

.433 

22.0 

.866 

128.0 

5.039 

.4 

.016 

14.25 

.561 

25.17 

.991 

154.0 

6.063 

.5 

.020 

16.0 

.630 

30.860 

1.2150 

.621 

.0244 

17.0 

.669 

32.0 

1.260 

UNITS 


DIM 


UNTTS 


DIM 


UNITS 


2. 

BAR 

29. 

PSI 

10. 

N 

2.25 

LPF 

1000. 

MPA 

145000. 

PSI 

10.35 

M/MM 

110. 

LB/INCH 

-40.0 

DEG 

C 

-40. 

DEG 

F 

2.0 

KM 

1.2 

MILE 

-31.5 

DEG 

C 

-25. 

DEG 

F 

2. 

KM 

1.2 

MILE 

20. 

DEG 

C 

68. 

DEG 

F 

3.0 

KM 

1.9 

MILE 

100. 

DEG 

C 

212. 

DEG 

F 

8.0 

KM 

S.O 

MILE 

2.0 

DEG 

TOL 

4. 

DEG 

TOL 

11.25 

KM 

7.0 

MTLE 

4.0 

DEG 

TOL 

7. 

DEG 

TOL 

22.55 

KM 

14.0 

MILE 

5. 

DEG 

TOL 

9. 

DEG 

TOL 

4. 

LITRF 

4.2 

OT 

7.0 

DEG 

TOL 

13. 

DEG 

TOL 

50. 

KG 

110. 

LB 

20.00 

OEG 

TOL 

36. 

DEG 

TOL 

Sample  2 

(Continued) 
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Sample  3  Comments 

Input         This  sample  contains  mixed  millimetre  and  non-millimetre 

dimensions  and  various  numbers  of  sets  of  data  per  data  card 
as  does  sample  2.   In  addition,  it  contains  two  special 
identifier  cards  —  the  second  and  third  on  the  input  list. 
These  cards  provide  the  capability  for  converting  from 
metres  to  inches  and  from  dekametres  to  inches  respectively. 
The  sample  also  contains  data  cards  employing  each  of  these 
added  conversions. 

Care  must  be  exercised  in  reading  the  special  identifier 
cards.   Specifically,  the  l's  in  the  quantities  139.37  and 
1393.7  are  in  card  column  27  and  are  therefore  not  part  of 
their  respective  identifiers  since  they  are  not  in  the 
conversion  factor  field.   They  represent  round  technique 
codes  instead.   The  last  two  lines  of  the  output  table 
of  conversion  factors  clarifies  this. 

Output         The  added  identifier  cards  trigger  the  printout  of  the  table 
of  conversion  factors. 
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INPUT 


9S3184 

01 

1.0 

METER 

INCH 

^ECA  M 

INCH 

57.0 

5.6 

19.35 

N/MM 

30.360 

0.013 

5.6 

200. 0 

DM 

300.0 

CM 

400.0 

HG 

500.0 

DL 

135.  44 

N/MM 

14.25 

.5 

7.0 

DECA  M 

7.6 

1.5 

11.00 

12.35 

GAGE 

75.0 

REF 

looo.oo 

20.0 

DEG  C 

10.0 

G 

".01 

MP  A 

12 

12. 

012 

00123 

2.25 

4.68 

13.1 

1^.22 

27.691 

2°. 9 

36.0 

4".15 

52.2 

54.755 

31.15 

85.65 

0123.5 

1200. 

1300. 

1600. 

1700. 

22.0 

17.50 

50. 

KG 

10. 

N 

35. 

ML 

4. 

LITRE 

-100.22+ 

2. 

BAR 

10. 

N  M 

2. 

KM 

50.0 

128.0 

38.10 

32.0 

25.17 

21.8 

20.83 

19.8 

16.0 

6.35 

1.5 

.76 

17.0 

0.5 

18.0 

0.05 

19.0 

0.051 

19.0 

0.0505 

3.0 
13°. 37 
1393.7 


2.0 

".1 
0.1 


1.0 


SAMPLE    3 


"TER 


1100.0 


8.9 
23.35 
31  .0 
44.44 
69.  7S 
405.1 

1400. 
1800. 


STOP 


129700 
129800 
12990" 
130000 
130101 
130200 
130300 
130400 
130501 
130600 
130701 
130800 
130901 
131000 
131100 
131201 
131301 
131401 
131500 
131600 
131700 
131800 
131900 
132000 
132100 
13??0i 
132300 
132401 
132500 
132600 
132700 
132801 
132901 
133001 
133101 
133200 
133300 
133400 
133500 
133600 
133700 
133800 
133900 
134000 
134100 
134200 
134300 
134400 
134500 
134600 
134700 
134800 
13490O 
135000 
135101 
135200 
135301 
135400 
135500 
135600 
135701 
135800 


Sample  3 
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OUTPUT  -   IDENTIFICATION, TABLE  OF   CONVERSION  FACTORS  AND  ERRORS 


METRIC    -    U.S.    CUSTOMARY    CONVERSION    TABLE 


NUMBER  OF 

PART 

OUTPUT  COLUMNS 

NUMBER 

CHANGE 

ADDITIONS 

mm            OTHrR 

9S3184 

01 

t.O 

3.0           ?.0 

NUMPER    OF 
ADDED 

IDENTIFIERS      CLOT 
?.0  1.0 


REMARKS 
SAMPLE    3 


NUMBER    OF    FtvjTRlFS    IN    CONVERSION    TABLE    =         32 


IDENTIFIER 

IOFMTIFIER 

IN 

OUT 

BAR 

PSI 

MBAR 

PSI 

MPA 

PSI 

DEG  C 

DEG  F 

DEG  TOL 

DEG  TOL 

N 

LBF 

KN 

LBF 

NM 

LB  FT 

GM 

OZ  INCH 

N/MM 

LB/INCH 

UM 

MILS 

CM 

INCH 

DM 

INCH 

M 

FT 

KM 

^IILE 

MM? 

IN? 

CM2 

IN? 

M2 

YD? 

CM3 

IN3 

CM3  LIO 

OZ  LIO 

DL 

OZ  LIQ 

LITRE 

QT 

M3 

YU3 

G 

OZ 

HG 

OZ 

KG 

LB 

MG 

LB 

KG/M2 

OZ/YD2 

G/CM3 

S/CM3 

KG/M3 

LB/FT3 

METER 

INCH 

DECA  M 

INCH 

ROUND   CONVERSION     ROUMDTNG 
TECHNIQUE       FACTOR  UNIT 


0     14.S0400 

1 .00000 

1       .01450 

.00000 

0    14S. 04000 

l.oonoo 

o    -i./ioooo 

1.00000 

0      1.P1000 

l.oonoo 

1       .2?481 

.00000 

1    2?4.01000 

.00000 

1       .737S6 

.00000 

1      1.3PR70 

.10000 

1      5. 71010 

.00000 

1       .03937 

.10000 

1       .3Q370 

.00000 

1      3.9'*7no 

.00000 

1     3.2qn«o 

.00000 

1       .62137 

.10000 

1       .00155 

.00000 

1       .15500 

.00000 

1      1. 1^600 

.10000 

1       .06102 

.00000 

1       .0338,1 

.00000 

1      3.38100 

.10000 

1      1.0S670 

.10000 

1      1.30800 

.00000 

1       .0^S27 

.00000 

1      3.5?740 

.10000 

1      2.20460 

.10000 

1   ??04. 60001 

.00000 

0     29.4Q400 

1.00000 

o     l.onnoo 

1 .00000 

1       .06243 

.00000 

1     30.37100 

.10000 

1    30^.70000 

.10000 

****  THIS  IS  A  TFMfORARY  ENTRY  **** 
****  THIS  IS  A  TEMPORARY  ENTRY  **** 


LISTED  BELOW  APF  THE  INPUT  DATA  CARD(S)  WITH  SOME  TYPF  OF  FRROR(S). 
DIMENSION    IDFNTIFIFR     rORQO  type 

ILLEGAL  IDFNTTFIPR 

ILLEGAL  IOFNTIFI" 

ILLEGAL  IPENTTFIF" 

ILLEGAL  CHARACTER  IN  DIMFMSIOM 

TLLFC-AL  IDFNTIFIFR 


12.35 

GAG*" 

75.0 

REF 

35. 

ul 

-100.22+ 

10. 

M  " 

Sample  3  (Continued) 
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OUTPUT   -   CONVERSION  TABLES 


PART    9S3184  CHANGE      01 

MM  INCH  MM  INCH  MM  INCH 


.013 

.0005 

17.50 

.689 

52.2 

2.055 

.05 

.002 

18.0 

.709 

54.755 

2.1557 

.0505 

.00199 

19.0 

.748 

57.0 

2.244 

.051 

.0020 

19.8 

.780 

69.75 

2.746 

.5 

.020 

20.83 

.820 

81.15 

3.195 

.76 

.030 

21.8 

.858 

85.65 

3.372 

1.5 

.059 

22.0 

.866 

123. 

4.843 

2.25 

.089 

23.35 

.919 

123.5 

4.862 

4.68 

.184 

25.17 

.991 

12P.0 

5.039 

5.6 

.220 

27.691 

1.0902 

405.0 

15.945 

6.35 

.250 

29.9 

1.177 

1000.00 

39.370 

8.9 

.350 

30.860 

1.2150 

1100.0 

43.307 

11.00 

.433 

31.0 

1.220 

1200, 

47.244 

12. 

.472 

32.0 

1.260 

1300. 

51.181 

13.1 

.516 

36.0 

1.417 

1400. 

55.118 

14.25 

.561 

38.10 

1.500 

1600. 

62.992 

15.22 

.599 

40.15 

1.581 

1700. 

66.929 

16.0 

.630 

44. 44 

1.750 

1800. 

70.866 

17.0 

.669 

50.0 

1.969 

PART   9S3184  CHANGE      01 

DIM  UNITS  DIM  UNITS  DIM  UNITS  DIM  UMTS 


2. 

BAR 

29. 

PS  I 

2. 

KM 

1.2 

MILF 

.01 

MPA 

1. 

PSI 

500.0 

ni_ 

le>90. 

OZ  LIQ 

20.0 

DEG  C 

68. 

DEG  F 

4. 

LITRE 

4.2 

QT 

10. 

N 

2.25 

LBF 

10.0 

G 

.353 

02 

19.35 

N/MM 

110. 

LB/INCH 

400.0 

HG 

1410. 

OZ 

135.44 

N/MM 

773. 

LB/INCH 

50. 

KG 

110. 

LB 

300.0 

CM 

118. 

INCH 

7.6 

METER 

299. 

INCH 

200.0 

DM 

787. 

INCH 

7.0 

DECA  M 

2760. 

INCH 

Sample   3    (Continued) 
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E.    PROGRAMMING  INFORMATION 

1.   General 
The  program  is  comprised  of  a  main  program,  six  subroutines  called  ENCODE,  DECODE, 
DASORT,  SETUP,  SIGNIF  and  READER;  a  function  subprogram  DROUND;  and  a  BLOCK  DATA 
subprogram.   The  main  routine  and  subroutines  are  liberally  interspersed  with 
comments. 

Modifications  in  the  dimensions  converted  and  their  conversion  factors  may  be 
accomplished  by  changing  the  appropriate  values  in  BLOCK. 


The  program  is  written  in  American  National  Standard  FORTRAN    and  is  essentially 
machine  independent. 


The  source  program  consists  of  about  1200  FORTRAN  statements.   When  tested  on  the 
UNIVAC  1108  it  required  approximately  12,000  words  of  memory. 

2.   Accuracy  and  Size  of  Numbers 
The  program  uses  double  precision  arithmetic  so  as  to  minimize  the  limitations  of 
computer  word  length.   Of  the  computers  upon  which  the  program  was  tested  the 
smallest  mantissa  in  the  double  precision  floating  point  number  representation 

was  54  bits  for  the  PDP-10  under  DECsystem  10  with  KA10  "long  mode"  number 
representation. 

Word  length  should  not  be  a  limitation  on  any  computer  with  equivalent  double 
precision  floating  point  representation.   This  includes  virtually  all  large  scale 
computers  and  some  minicomputers. 
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The  rounding  technique  employed  in  millimetre  to  inch  conversions  is  essentially 
the  same  as  that  recommended  in  American  National  Standard  Z25. 1-1940  reaffirmed 
1961 ^ 7  .   Specifically : 

(a)  Remainders  less  than  1/2  are  rounded  downward, 

(b)  Remainders  greater  than  1/2  are  rounded  upward, 

(c)  Remainders  exactly  equal  to  1/2  are  rounded  to  the  nearest  even  digit. 
In  this  program,  exactly  1/2  is  defined  to  be  any  number  within  the 
range  .5  +  .0001  to  .5  -  .0001  inclusive. 

If  the  quantity  1/2  used  in  the  nearest  even  digit  routine  were  defined  exactly, 
this  procedure  would  result  in  a  maximum  rounding  error  of  1/2  unit  in  the  least 
significant  place  retained.   Actually,  however,  the  maximum  error  is  .5001  in  the 
least  significant  place  retained.   This  difference  is  of  no  practical  importance 
and  will  be  neglected  in  the  subsequent  discussion. 

Non-millimetre  conversions,  both  those  that  are  built  in  and  those  that  are 
introduced  by  means  of  added  identifier  cards,  are  rounded  according  to  one,  two 
or  three  procedures  applied  serially  in  order  as  follows: 

(a)  The  special  rounding  unit,  if  any,  is  applied.   The  quantity  0.5  is 
added  to  the  quotient  of  the  unrounded  converted  dimension  divided  by 
the  special  rounding  unit.   The  result  is  truncated  to  its  integral 
part  and  multiplied  back  by  the  special  rounding  unit  to  give  the 
rounded  dimension  to  the  nearest  allowable  increment. 

(b)  The  result  of  operation  (a)  is  rounded  to  three  significant  figures 
using  the  same  procedure  that  is  used  for  rounding  from  millimetres  to 
inches . 
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(c)   If  the  number  of  decimal  places  is  specified  (round  technique  codes 

1-5),  the  result  of  operation  (b)  is  rounded  again.   The  same  procedure 
that  is  used  for  rounding  from  millimetres  to  inches  is  again  employed. 

Undesireable  interaction  among  the  several  serial  rounding  operations  may  be 
avoided  by  applying  the  restrictions  specified  under  the  rounding  unit  item  in 
the  table  in  section  III  Dlb .   The  subsequent  discussion  assumes  that  they  have 
been  applied. 
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a.  Millimetres  to  Inches 

Although  the  input  card  format  for  millimetre  dimensions  permits  eight  characters, 
the  largest  unsigned  number  that  can  be  processed  is  controlled  by  the  print 
format  of  the  inch  equivalent  output  -  decimal  point  and  a  maximum  of  seven 
numeric  characters,  at  least  three  of  which  must  lie  to  the  right  of  the  decimal 
point.   The  largest  unsigned  dimension  that  can  be  handled,  therefore,  is 
9999.999  inches  or,  conservatively,  250  000  millimetres.   For  all  input  values 
no  larger  than  250  000  millimetres,  the  inch  equivalent  will  be  printed  with  an 
error  no  larger  than  one  half  unit  in  the  last  place  retained.   Since  at  least 
three  decimal  places  are  retained  in  all  circumstances,  the  error  is  always  less 
than  or  equal  to  5  ten- thousandths  of  an  inch. 

The  program  also  accepts  signed  millimetre  dimensions.   The  purpose  of  this  is  to 
permit  the  entering  of  positive  and  negative  tolerances.   The  output  print  format 
for  a  signed  dimension  is  sign,  decimal  point  and  six  digits,  at  least  three  of 
which  must  lie  to  the  right  of  the  decimal  point.   The  largest  signed  dimension 
that  can  be  handled  is  therefore  +999.999  inches  or,  conservatively,  25,000 
millimetres.   The  maximum  error  is  the  same  as  in  the  unsigned  case. 

b.  Other  Built-in  Conversions 

Conversions  of  units  other  than  millimetres  (figure  5)  use  the  same  input  card 
format  and  output  print  format  as  do  millimetre  conversions  -  eight  characters  in 
each  case.   The  maximum  unsigned  dimension  that  can  be  processed  is  limited  by 
either  the  input  or  the  output  format  depending  upon  the  magnitude  of  the  conver- 
sion factor.   Dimensions  with  conversion  factors  equal  to  or  less  than  one-tenth 
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are  limited  by  the  output  format.   The  dividing  point  is  one-tenth  rather  than 
unity  since  a  decimal  point  is  mandatory  in  the  output  format  but  not  in  the  inpu 
format.   The  magnitude  of  the  dimension  that  can  be  processed  depends  also  on  the 
rounding  rule  employed  since  this  dictates  the  number  of  places  to  the  right  of 
the  decimal  point. 

It  will  be  noted  from  figure  5  that  most  built-in  conversion  factors  have  been 
rounded  to  five  significant  digits.   This  does  not  affect  the  accuracy  of  the 
computed  results,  however,  since  converted  dimensions  are  rounded  to  at  most 
three  significant  digits. 

Other  built-in  conversions  handle  signed  numbers  in  a  manner  similar-  to  the  way 
that  millimetre  conversions  do.  In  all  cases,  the  magnitude  of  a  signed  number 
must  be  decreased  by  a  factor  of  ten,  but  the  error  is  unaffected. 

C.   Numerical  Values 
Based  upon  these  considerations  the  maximum  permissible  magnitudes  of  the  input 
dimensions  and  the  maximum  errors  produced  have  been  calculated  and  verified  and 
are  presented  in  figure  8  for  both  millimetre  and  built-in  non-millimetre  dimen- 
sions.  In  the  table  the  maximum  dimensions  are  conservative  approximations  - 
i.e.,  rounded  downward  from  their  true  values. 
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Figure  8 
MAXIMUM  PERMISSIBLE  DIMENSIONS  AND  MAXIMUM  ERRORS 


CONVERSION 

1  MILLIMETRE  TO  INCH 

2.  BAR  TO  PSI 

3.  MBAR  TO  PSI 

4.  MEGAPASCAL  TO  PSI 

5.  DEGREES  C  TO  DEGREES  F 

6.  DEGREES  C  TOL  TO  DEGREES 

F  TOL 

7.  NEWTON  TO  POUND 

8.  KILONEWTON  TO  POUND 

9.  NEWTON  METRE  TO 

POUND  FOOT 

10.  GRAM  METRE  TO  OUNCE  INCH 

11.  NEWTON/MM  TO  POUND/ INCH 

12.  MICROMETRE  TO  INCH/1000 

13.  CENTIMETRE  TO  INCH 

14.  DECIMETRE  TO  INCH 

15.  METRE  TO  FOOT 

16.  KILOMETRE  TO  MILE 

17.  MM2  TO  INCH2 

18.  CM2  TO  INCH2 

19.  M2  TO  YARD2 

20.  CM3  TO  INCH3 

21.  CM3  LIQ  TO  OZ  LIQ 

22.  DECILITRE  TO  OZ  LIQ 

23.  LITRE  TO  QUART 

24.  M3  TO  YARD3 

25.  GRAM  TO  OUNCE 


MAXIMUM 

PERMISSIBLE 

DIMENSION  (1) 


250 

000 

MM 

700 

000 

BAR 

90 

000 

000 

MBAR 

60 

000 

MPA 

5 

000 

000 

DEG  C 

5 

000 

000 

DEG  C 

40 

000 

000 

N 

40 

000 

N 

10 

000 

000 

NM 

700 

000 

GM 

1 

000 

000  N/MM 

9 

000 

000 

UM 

20 

000 

000 

CM 

2 

000 

000 

DM 

30 

000 

000 

M 

1 

000 

000 

KM 

90 

000 

000 

MM2 

60 

000 

000 

CM2 

8 

000 

000 

M2 

90 

000 

000 

CM3 

90 

000 

000 

CM3 

200 

000 

DL 

900 

000 

LITRE 

7 

000 

000 

M3 

90 

000 

000 

G 

MAXIMUM  ERROR  (2) 

.0005  INCHES 

MAX  (.5  PSI,  5  PARTS  IN  1  000) 

5  PARTS  IN  1  000 

MAX  (.5  PSI,  5  PARTS  IN  1  000) 

MAX  (.5  DEG  F,  5  PARTS  IN  1  000) 

MAX  (.5  DEG  F,  5  PARTS  IN  1  000) 
5  PARTS  IN  1  000 
5  PARTS  IN  1  000 

5  PARTS  IN  1  000 

MAX  (.05  OZ  INCH,  5  PARTS 
IN  1  000) 

5  PARTS  IN  1  000 

MAX  (.05  INCH/1000,  5  PARTS 
IN  1  000) 

5  PARTS  IN  1  000 

5  PARTS  IN  1  000 

5  PARTS  IN  1  000 

MAX  (.05  MILE,  5  PARTS  IN  1  000) 

5  PARTS  IN  1  000 

5  PARTS  IN  1  000 

MAX  (.05  YARD2,  5  PARTS  IN  1  000) 

5  PARTS  IN  1  000 

5  PARTS  IN  1  000 

MAX  (.05  OZ,  5  PARTS  IN  1  000) 

MAX  (.05  QT,  5  PARTS  IN  1  000) 

5  PARTS  IN  1  000 

5  PARTS  IN  1  000 
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Figure  8  (Continued) 


MAXIMUM 

PERMISSIBLE 

CONVERSION 

DIMENSION  (1) 

(3) 

26. 

HG  TO  OUNCE 

200  000  OZ 

27. 

KG  TO  LB 

400  000  KG 

28. 

MG  TO  LB 

4  000  MG 

29. 

KG/M2  TO  OZ/YARD2 

300  000  KG/M2 

30. 

G/CM3  to  G/CM3 

9  000  000  G/CM3 

31. 

KG/M3  TO  LB/FT3 

90  000  000  KG/M3 

MAXIMUM  ERROR  (2) 

MAX  C-05  OZ,  5  PARTS  IN  1  000) 
MAX  (.05  LB,  5  PARTS  IN  1  000) 
5  PARTS  IN  1  000 

MAX  (.50Z/YD2,  5  PARTS  IN  1  000) 
MAX  (.5  G/CM3,  5  PARTS  IN  1  000) 
5  PARTS  IN  1  000 


(1)  Dimensions  exceeding  the  exact  numbers  from  which  these  figures  are  rounded  will 
cause  input  or  output  overflow. 

(2)  Maximum  error  for  the  computers  on  which  the  program  was  tested.   See  text. 

(3)  See  notes  to  figure  4  for  use  of  these  units. 
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IV   GMMETR  AND  GMINCH  PROGRAMS 

A.  ABSTRACT 

GMMETR  and  GMINCH  are  metric  conversion  programs  developed  by  the  General  Motors 
Corporation.   GMMETR  converts  input  dimensions  in  millimetres  to  equivalent  output 
dimensions  in  inches  while  GMINCH  performs  the  reverse  conversion.   The  programs 
operate  in  rr  on-line,  interactive  mode.   They  give  the  user  the  option  of 
selecting  prompting  assistance  from  the  program  while  entering  information  at 
the  terminal. 

B.  BACKGROUND  INFORMATION 

This  pair  of  programs  was  developed  by  the  General  Motors  Corporation  for  com- 
puting a  conversion  table  going  from  millimetres  to  inches  to  attach  to  a  metric 
drawing  and  a  table  going  from  inches  to  millimetres  to  attach  a  customary  draw- 
ing.  The  programs  have  been  made  available  to  General  Motors  Corporation  design 
engineers  through  400  remote  terminals. 

C.  PROBLEM  DEFINITION 

The  General  Motors  Corporation  conversion  programs  GMMETR  and  GMINCH  are  essen- 
tially identical  in  structure  and  in  logic  even  though  they  convert  in  opposite 
directions.   The  remainder  of  this  documentation  will  address  both  programs 
collectively  or  GMMETR  specifically.  GMINCH  will  be  referred  to  only  when  it 
differs  from  GMMETR. 
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The  programs  are  capable  of  converting  an  unlimited  number  of  tables,  however 
each  table  may  contain  no  more  than  1000  measurements.  For  each  table  processed, 
the  user  enters  drawing  identification,  format  specifications,  and  the  measure- 
ments to  be  converted.   Output  consists  of  a  pair  of  values  for  each  input 
measurement,  i.e.,  the  original  input  measurement  and  the  equivalent  converted 
output  measurement.   The  number  of  pairs  of  values  printed  on  a  line  are  optional 
(up  to  a  maximum  of  6)  and  are  indicated  to  the  program  in  the  format  specifica- 
tions. 

GMMETR  is  capable  of  converting  input  dimensions  between  25,000  and  0.001  milli- 
metres while  GMINCH  is  capable  of  converting  input  dimensions  between  1000  and 
0.0001  inches.   GMMETR  output  in  inches  contains  one  more  decimal  place  than 
the  input  millimetre  measurement  while  GMINCH  output  in  millimetres  contains 
one  less  decimal  place  than  the  input  inch  measurement.  For  either  program  a 
measurement  may  not  exceed  8,000,000  times  its  tolerance.   In  this  context 
tolerance  means  one  unit  in  the  least  significant  decimal  place  retained. 
Because  of  word  length  differences  among  various  computers,  the  user  must 
exercise  caution  when  exceeding  the  above  limitations. 

GMMETR  and  GMINCH  have  been  tested  on  the  UNIVAC  1108,  PDP  10  and  IBM  360.   For 
machines  with  smaller  word  lengths  the  above  statements  regarding  acceptable  ranges 
of  input  numbers  and  accuracies  of  output  results  may  not  apply. 

Output  is  sorted  in  increasing  order  of  magnitude  and  duplicates  are  eliminated. 
The  programs  edit  the  input  and  print  out  various  diagnostic  messages.   All  of 
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the  above  characteristics  of  the  General  Motors  programs  will  be  addressed 
specifically  in  the  following  section. 

D.    APPLICATION  INFORMATION 

This  section  describes  program  characteristics  from  the  user's  point  of  view. 

1.   Annotated  Illustration  of  Program  Application 
A  sample  problem  for  GMMETR  is  illustrated  in  figure  9  and  is  described  below. 
The  lower  case  letters  in  parentheses  queued  onto  the  figure  identify  those 
portions  of  the  sheet  printed  by  the  computer  and  those  by  the  user.   The  sec- 
tions of  the  write-up  are  cross  referenced  to  the  figure. 

Al   Having  logged  in  and  called  the  program,  the  user  has  the  option  of  request- 
ing "more  information"  by  entering  a  plus  sign*. 

A2   The  user  has  exercised  this  option. 

Bl   The  program  asks  for  drawing  identification  and  maximum  width  of  the  input 
conversion  table  in  millimetres.   These  two  items  must  be  separated  by  a 
comma  and  may  not  exceed  80  characters  collectively. 

Drawing  identification  -  This  entry  will  be  used  as  the  title  of  the  draw- 
ing. Any  alphanumeric  characters  may  be  used. 

Maximum  width  -  Program  output  is  comprised  of  a  pair  of  columns  or  values 
for  each  input  measurement,  i.e.,  the  input  measurement  and  the  equivalent 
converted  output  measurement.   The  program  can  accommodate  six  pairs  of 

*0n  most  interactive  terminal  systems  every  entry  is  followed  by  a  carriage 
return  which  signals  to  the  computer  that  the  input  line  is  completed. 
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GMMETR  ON  UNIVAC 
SAMPLE  PROBLEM  -  MILLIMETERS  TO  INCHES   (user) 


ENTER  A  SINGLE  PLUS  SIGN,   +, 

FOR  MORE  INFORMATION.  ELSE,  HIT  CARRIAGE  RETURN. 

"lV£)    (user) 


A,\)   (computer) 


ENTER    THE    DRAWING    IDENTIFICATION    AND    THE    MAXIMUM   WIDTH    ON   THE    DRAWING 

FOR   THE    MILLIMETRE-INCH    CONVERSION    TABLE    (IN    MILLIMETRES).       PUT    A    COMMA 

BETWEEN    THE    TWO    ENTRIES.       A    PAIR    OF    COLUMNS    IS    53.34    MILLIMETRES    WIDE. 

(computer) 

TEST  DATA  FOR  GMMETR, 20  0  /T^\    , 

(32)  (user) 


ENTER  THE  MILLIMETRE  DIMENSIONS  ON  A  LINE  WITH  COMMAS  IN  BETWEEN. 

THE  COMPUTER  WILL  KEEP  ASKING  FOR  ANOTHER  LINE  OF  INPUT  UNTIL  YOU 

INDICATE  THAT  YOU  HAVE  NO  MORE  INPUT  BY  ENTERING  0.  (ZERO)  AS  THE 

LAST  NUMBER. 

SHOW  THE  DECIMAL  POINT  EVEN  WITH  INTEGERS. 

BE  CAREFUL  IF  YOU  ENTER  A  DIMENSION  LARGER  THAN   25  000   MILLIMETRE 

DO  NOT  ENTER  A  TOLERANCE  SMALLER  THAN   0.00  1   MILLIMETRE 

A  DIMENSION  CANNOT  EXCEED   8  000  000   TIMES  ITS  TOLERANCE, 


*E   vV  (comPuter) 


.00  1,. 0  10,. 100,. 25 4, 2, 54, .254,2.540,25.4,25.40,254. ,2540.  , 
254.0,254.0  0,254.0  0  0,254.0 1 ,2540.0,2540  0. ,254  0  0.0 ,254  0  0. 00  , 
. 1  ,. 2,. 3, .4, .5, .6, .7,  .8,  .9,  1.0,0. 

DUPLICATE  MEASUREMENT(S)  REMOVED. 

TEST  DATA  FOR  GMMETR 


*-£■)    (user) 


£_J    (computer) 


MM 


.  001 
.  100 
.3 
.6 
.9 
2.540 
54. 
254.00 
2    540. 


( INCH) 


.000    0 
.003    9 
.01 
.  02 
.04 

.100    0 
2.  1 
10.000 
100. 


MM 


.010 


.2 

.4 

.7 

1.0 

25.4 

254. 


(INCH) 

.000  4 
.01 
.02 
.  03 
.04 
1.00 
10.0 


254.000       10.000     0 


MM 

.  1 

.254 
.5 
.8 
2. 
25.4  0 
254.  0 
254. 01 


( INCH) 


.00 

.010     0 
.02 
.03 
.  1 

000 

00 

000 


1 

10 

10 


(computer) 


2    540.0 


100.00 


25    400. 


1000.0 


25    400.0       1000.00 


ENTER    THE    IDENTIFICATION    (COMMA)    AND    WIDTH    FOR   ANOTHER   TABLE.       x~v 
TO    END    PROGRAM,    ENTER   ANY   ALPHABETICAL    CHARACTER.  (computer)      \*J 


S        [A)    (user) 


Figure 
48 


values  across  the  page.  A  pair  of  values  is  53.34  millimetres  wide.  For 
simplification,  the  user  may  round  this  value  and  enter  integers.  A  recom- 
mended convention  is  the  following: 

1  pair  of  columns  =  60 

2  pairs  of  columns  =  120 


6  pairs  of  columns  =  360 
Care  must  be  exercised  in  specifying  a  number  compatible  with  the  width 
of  the  paper  that  the  table  is  being  printed  on  and  the  space  available  on. 
the  drawing  to  which  it  will  be  attached. 
B2   User  types  in  both  items  separated  by  a  comma. 

CI   The  user  is  asked  to  enter  the  measurements  to  be  converted.   These  are 
entered  on  a  line  with  commas  in  between.   Every  measurement  must  have  a 
decimal  point.  A  final  zero  followed  by  a  decimal  point  indicates  that  no 
more  measurements  will  be  entered  for  this  table.   Legal  characters  are  the 
decimal  point,  comma,  and  numerics.   Range  of  permissible  values  is  as 
follows : 

GMMETR:   between  25,000  and  0.001  millimetres 
GMINCH    between  1,000  and  0.0001  inches 
C2   Data  is  entered.  Note  (1)  decimal  point  with  each  dimension, (2)  separating 
commas,  (3)  final  zero  followed  by  period.   (Some  systems  accept  integers 
without  decimal  points  and  several  numbers  were  so  entered  in  the  example 
in  figure  9  without  error.) 
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D    Program  removes  duplicate  measurements,  if  they  exist,  and  prints  a  line  to 
indicate  that  it  has  done  so. 

E  Drawing  identification  is  printed  followed  by  conversion  table.  Table  has 
been  formatted  with  3  pair  of  columns  as  specified  in  B2.  Duplicates  have 
been  removed.  Program  sorts  on  the  output  data  and  prints  the  entries 
of  the  table  in  increasing  order  of  magnitude  in  rows  rather  than  columns. 
The  millimetre  values  always  appear  first.  This  is  true  in  both  programs, 
GMMETR  and  GMINCH.  One  more  decimal  place  always  appears  in  the  inch 
measurement  than  in  the  millimetre  measurement. 

F    The  user  may  process  another  table  by  entering  a  new  drawing  identification 
and  table  width  or  alternatively  he  may  terminate  the  run  by  entering  any 
alphabetic  character. 

G    The  character  S  was  entered  to  terminate  the  run. 

A  similar  example  for  GMINCH  is  given  in  figure  10. 

2.   Program  Limitations 

a.   Accuracy  of  GMMETR 
On  the  computers  tested,  the  program  is  valid  for  input  measurements  between  0 
and  25,000  mm.   Measurements  less  than  or  equal  to  8000  mm  should  be  entered  with 
3  or  less  decimal  places  while  those  greater  than  8000  mm  should  be  restricted 
to  at  most  2  decimal  places.  Under  these  conditions  the  error  in  the  converted 
measurement  is  not  more  than  one-half  unit  in  the  last  place  retained. 


50 


ENTER  THE  INCH  DIMENSIONS  ON  A  LINE  WITH  COMMAS  IN  BETWEEN. 

THE  COMPUTER  WILL  KEEP  ASKING  FOR  ANOTHER  LINE  OF  INPUT  UNTIL  YOU 

INDICATE  THAT  YOU  HAVE  NO  MORE  INPUT  BY  ENTERING  0.  (ZERO)  AS  THE 

LAST  NUMBER. 

SHOW  THE  DECIMAL  POINT  EVEN  WITH  INTEGERS. 

BE  CAREFUL  IF  YOU  ENTER  A  DIMENSION  LARGER  THAN  100  0  INCHES 

DO  NOT  ENTER  A  TOLERANCE   SMALLER  THAN   0.00  0  1   INCH 

A  DIMENSION  CANNOT  EXCEED   8  000  000   TIMES  ITS  TOLERANCE  , 

1000., 100., 100. 0,100. 00 ,100. 000, 10., 10. 0,1 0.00, 10. 000, 10.  0000, 
1., 1.0, 1.00, 1.000, 1.0000,1. ,10. ,100. ,1000.0, .01, .001, .0001, 
1.01, 1.00 1,2. 002, 2. 0002, 3. 003, 3. 0003, 4. 4, 4. 04, 4. 004, 4. 0004,0. 

i 

j  DUPLICATE  MEASUREMENT(S)  REMOVED. 
I 
TEST  DATA  FOR  GMINCH 


GMINCH  ON  UNIVAC 
SAMPLE  PROBLEM  -  INCHES  TO  MILLIMETERS 


ENTER  A  SINGLE  PLUS  SIGN,  +  , 

FOR  MORE  INFORMATION.  ELSE,  HIT  CARRIAGE  RETURN. 

ENTER  THE  DRAWING  IDENTIFICATION  AND  THE  MAXIMUM  WIDTH  ON  THE  DRAWING 
FOR  THE  MILLIMETRE-INCH  CONVERSION  TABLE  <IN  MILLIMETRES).   PUT  A  COMMA 
BETWEEN  THE  TWO  ENTRIES.   A  PAIR  OF  COLUMNS  IS  53.34  MILLIMETRES  WIDE. 


fEST  DATA  FOR  GMINCH, 20  0 


MM 

(INCH) 

MM 

( INCH) 

MM 

( INCH) 

.003 

.000  1 

.03 

.001 

.3 

.01 

25. 

1. 

25. 

1.0 

25.4 

1  .00 

25.40 

1.  000 

25.400 

1.  000 

0 

25.43 

1.001 

25.7 

1.01 

50.805 

2.000 

2 

50.85 

2.002 

76.208 

3. 000  3 

76.28 

3.003 

101.610 

4.  000 

101  .70 

4.  004 

102.6 

4.  04 

1  12. 

4.4 

254. 

10. 

254. 

10.0 

25  4.  0 

10.00 

254. 00 

10. 000 

254. 000 

10.000 

0 

2 

540. 

100. 

2 

540. 

100.  0 

2 

540.0 

100.00 

2 

540. 00 

100.000 

25 

400. 

1000. 

25 

400. 

1000.0 

ENTER  THE  IDENTIFICATION  (COMMA)  AND  WIDTH  FOR  ANOTHER  TABLE. 
TO  END  PROGRAM,  ENTER  ANY  ALPHABETICAL  CHARACTER. 


IS 

Figure  10 
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In  other  words,  for  input  entered  with  the  maximum  number  of  decimal  places, 
measurements  less  than  or  equal  to  8000  mm  will  be  converted  to  within  5  hundred- 
thousandths  of  an  inch  and  those  between  8000  and  25000  mm  to  within  5  ten- 
thousandths  of  an  inch.   Input  measurements  with  fewer  decimal  places  will  be 
converted  with  correspondingly  less  accuracy  but  still  to  within  one-half  unit 
in  the  last  decimal  place  retained  in  the  output. 

b.  Accuracy  of  GMINCH 

On  the  computers  tested,  the  program  is  valid  for  input  measurements  between  0 
and  1000  inches.  Measurements  less  than  or  equal  to  800  inches  should  be  entered 
with  4  or  less  decimal  places  while  those  greater  than  800  inches  should  be 
restricted  to  at  most  3  decimal  places.  Under  these  conditions  the  error  in  the 
converted  measurement  is  not  more  than  one-half  unit  in  the  last  place  retained. 

In  other  words,  for  input  entered  with  the  maximum  number  of  decimal  places, 
measurements  less  than  or  equal  to  800  inches  will  be  converted  to  within  5  ten- 
thousandths  of  a  millimetre  and  those  between  800  and  1000  inches  to  within  5 
thousandths  of  a  millimetre.   Input  measurements  with  fewer  decimal  places  will 
be  converted  with  correspondingly  less  accuracy  but  still  to  within  one-half 
unit  in  the  last  decimal  place  retained  in  the  output. 

c.  Computers  with  short  word  lengths 

The  computers  upon  which  these  programs  have  been  tested  included  one  with  a  32- 
word  length  and  a  single  precision  floating  point  mantissa  of  24  bits.   The 
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above  described  accuracy  should  be  obtained  on  any  computer  with  equivalent  or 
greater  fixed  and  floating  point  word  length.  The  programs  are  not  intended  to 
be  run  on  computers  with  lesser  capability. 

3.  Rounding  Conventions 

GMMETR  output  in  inches  contains  one  more  decimal  place  than  the  input  milli- 
metre measurement. 

GMINCH  output  in  millimetres  contains  one  less  decimal  place  than  the  input 
inch  measurement. 

4.  Error  and  Other  Special  Conditions 

Diagnostics  are  printed  immediately  following  an  incorrect  line  of  input.   If 
multiple  errors  occur  on  the  same  line,  only  the  first  will  be  recognized  and 
flagged.   The  program  stops  examining  the  input  after  the  first  diagnostic  and 
requests  the  user  to  reenter  the  line. 

Each  of  the  following  conditions  generates  a  diagnostic  message  and  a  request  to 
reenter  data. 

1.   Illegal  character  in  input  dimension 

a.  alpha  character 

b.  two  consecutive  commas 

(2) 

'2.        Two  consecutive  decimal  points  not  separated  by  a  comma. 


(1)  Two  consecutive  commas  at  the  end  of  a  line  are  not  detected. 

(2)  Some  computers  automatically  append  decimal  points  to  integers. 
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3.  Error  in  entering  maximum  table  width. 

4.  Number  of  dimensions  entered  exceed  maximum  1000  allowed. 

Various  other  conditions  are  recognized  and  compensated  for  without  requiring 
that  the  data  be  reentered. 

1.  Duplicate  input  measurements  are  eliminated,  a  message  to  this  effect 
is  printed,  and  the  program  proceeds  automatically. 

2.  Imbedded  blanks  are  detected  and  the  program  proceeds  without  a  diag- 
nostic message. 

3.  Blanks  appear  when  input  values  that  are  too  small  are  processed. 

4.  Asterisks  are  printed  on  the  output  table  in  lieu  of  quantities  which 
are  too  large  for  the  print  format  specification. 

A  sample  run  exercising  many  of  these  conditions  is  illustrated  in  figure  11. 
As  in  figure  9  lower  case  letters  in  parentheses  queued  onto  the  figure  identify 
those  parts  of  the  sheet  printed  by  the  computer  and  those  by  the  users. 

E.    PROGRAMMING  INFORMATION 

Shown  in  Appendix  3  are  program  listings  for  GMMETR  and  GMINCH.   They  are  essen- 
tially the  same  with  the  exception  of  the  key  subroutine  at  the  end  of  each  pro- 
gram, the  subroutine  CONVMM  in  GMMETR  and  the  subroutine  CONVIN  in  GMINCH. 
Detailed  comments  are  generously  dispersed  throughout  the  programs  and  are 
identified  by  the  letter  "C"  as  the  left  most  character  in  the  line  explaining 
the  operation  of  the  program. 
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The  programs  are  written  in  American  National  Standard  FORTRAN  and  are  essentially 
machine  independent. 

Each  source  program  consists  of  about  400  FORTRAN  statements,  when  tested  on  the 
UNTVAC  1108.  Computer  memory  requirements  were  approximately  12,000  words. 
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GMMETR  ON  UNIVAC 
ILLUSTRATION  OF  PROGRAMMED  DIAGNOSTICS   (user) 

ENTER  A  SINGLE  PLUS  SIGN,   t, 

FOR  MORE  INFORMATION.  ELSE,  HIT  CARRIAGE  RETURN.   (computer) 

+  (user) 

ENTER  THE  DRAWING  IDENTIFICATION  AND  THE  MAXIMUM  WIDTH  ON  THE  DRAWING 
FOR  THE  MILLIMETRE-INCH  CONVERSION  TABLE  (IN  MILLIMETRES).   PUT  A  COMMA 
BETWEEN  THE  TWO  ENTRIES.   A  PAIR  OF  COLUMNS  IS  53.34  MILLIMETRES  WIDE. 


DIAGNOSTICS  FOR  GMMETR, 20  0   (user) 


(computer) 


ENTER  THE  MILLIMETRE  DIMENSIONS  ON  A  LINE  WITH  COMMAS  IN  BETWEEN. 

THE  COMPUTER  WILL  KEEP  ASKING  FOR  ANOTHER  LINE  OF  INPUT  UNTIL  YOU 

INDICATE  THAT  YOU  HAVE  NO  MORE  INPUT  BY  ENTERING  0.  (ZERO)  AS  THE 

LAST  NUMBER. 

SHOW  THE  DECIMAL  POINT  EVEN  WITH  INTEGERS. 

BE  CAREFUL  IF  YOU  ENTER  A  DIMENSION  LARGER  THAN   25  000   MILLIMETRES 

DO  NOT  ENTER  A  TOLERANCE  SMALLER  THAN   0.00  1   MILLIMETRE    (computer) 

A  DIMENSION  CANNOT  EXCEED   8  0  00  00  0   TIMES  ITS  TOLERANCE. 

A.A,B.B,I. I, 1. 0, 1 .0 ,7. . ,9  9.  9,2  5  .   4 , 9 . , , 25 0 0 0 0 0 0 . , 0 .    (user) 
THERE  IS  AN  ILLEGAL  CHARACTER  IN  THE  INPUT  LINE.  (computer) 

ONLY  POINTS,  SINGLE   COMMAS,  AND  THE  TEN  DIGITS  MAY  BE  USED. 
PLEASE  REENTER  THE  LINE. 

1.1,1.1,1.1,1.0  1.0,7.. ,9  9.  9,2  5  .   4,9. ,,25000000. ,0.       (user) 
THE  LINE  HAS  TWO  DECIMAL  POINTS  WITHOUT  A  COMMA  IN  BETWEEN.   (computer) 
PLEASE  REENTER  THE  LINE. 


1.1,1.1,1.1,1.0,1.0,7.  ,9  9.  9,2  5    4 , 9 . , , 250 0 0 0 0 0 . , 0 . 
THERE  IS  AN  ILLEGAL  CHARACTER  IN  THE  INPUT  LINE. 
ONLY  POINTS,  SINGLE   COMMAS,  AND  THE  TEN  DIGITS  MAY  BE  USED. 
PLEASE  REENTER  THE  LINE. 


(user) 
(computer) 


1.1,1.1,1.1,1.0,1.0,7.     ,9    9.     9,2    5       4,9. ,25  000000. 000,0. 
DUPLICATE    MEASUREMENT(S)     REMOVED. 
DIAGNOSTICS    FOR    GMMETR 


(user) 
(computer) 


MM 

( INCH) 

MM 

(  INCH) 

MM 

( INCH) 

1  .0 

.04 

1  .  1 

.  04 

7. 

.3 

9. 

.4 

99.9 

3.93 

254. 

10.0 

tt# 

#•*•»■*#•»* 

*-*#•»*•*»*■  # 

(computer 


ENTER   THE    IDENTIFICATION    (COMMA)    AND    WIDTH    FOR   ANOTHER    TABLE. 

TO    END    PROGRAM,    ENTER    ANY    ALPHABETICAL    CHARACTER. 

(computer) 

Figure   11 
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A 
B 
C 
D 
E 

F 
G 
H 

I 
J 

K 
L 
M 
N 
0 

P 

Q 

R 

S 
T 

U 
V 
W 
X 
Y 

Z 
0 
1 
2 
3 

4 
5 
6 
7 
8 


APPENDIX  II 

REPRESENTATION  OF  FORTRAN  CHARACTERS 
IN  ASCII,  EBCDIC  AND  BCD 


Character  ASCII  EBCDIC  BCD 


lixed*) 

(Hexadecimal) 

(Octai 

41 

CI 

61 

42 

C2 

62 

43 

C3 

63 

44 

C4 

64 

45 

C5 

65 

46 

C6 

66 

47 

C7 

67 

48 

C8 

70 

49 

C9 

71 

4A 

Dl 

41 

4B 

D2 

42 

4C 

D3 

43 

4D 

D4 

44 

4E 

D5 

45 

4F 

D6 

46 

50 

D7 

47 

51 

D8 

50 

52 

D9 

51 

53 

E2 

22 

54 

E3 

23 

55 

E4 

24 

56 

E5 

25 

57 

E6 

26 

58 

E7 

27 

59 

E8 

30 

5A 

E9 

31 

30 

FO 

12 

31 

Fl 

01 

32 

F2 

02 

33 

F3 

03 

34 

F4 

04 

35 

F5 

05 

37 

F6 

06 

37 

F7 

07 

38 

F8 

10 
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Character  ASCII  EBCDIC  BCD 


(Mixed*) 

(Hexadecimal) 

(Octai 

9 

39 

F9 

11 

Blank 

20 

40 

20 

= 

3D 

7E 

13 

+ 

2B 

4E 

60 

- 

2D 

60 

40 

* 

2A 

5C 

54 

/ 

2F 

61 

21 

( 

28 

4D 

34 

) 

29 

5D 

74 

» 

2C 

6B 

33 

• 

2E 

4B 

73 

$ 

24 

5B 

53 

*Left  digit  is  OCTAL,  right  is  HEXADECIMAL. 
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APPENDIX  III 


LISTING 
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CONTENTS  OF  TAPE 


FILE  1    DOCUMENTATION 

FILE  2    METCO  PROGRAM 

SUBROUTINE  ENCODE 
SUBROUTINE  DECODE 
SUBROUTINE  DASORT 
SUBROUTINE  SETUP 
SUBROUTINE  SIGNIF 
SUBROUTINE  READER 
FUNCTION  SUBPROGRAM  DROUND 
BLOCK  DATA  SUBPROGRAM 

FILE  3   TEST  DATA  FOR  METCO  PROGRAM 


SAMPLE 

1 

SAMPLE 

2 

SAMPLE 

3 

SAMPLE 

4 

SAMPLE 

5 

SAMPLE 

6 

SAMPLE 

7 

SAMPLE 

8 

SAMPLE 

9 

SAMPLE 

10 

SAMPLE 

11 

SAMPLE 

12 

FILE  4    TEST  OUTPUT  FOR  METCO  PROGRAM 


SAMPLE 

1 

SAMPLE 

2 

SAMPLE 

3 

SAMPLE 

4 

SAMPLE 

5 

SAMPLE 

6 

SAMPLE 

7 

SAMPLE 

8 

SAMPLE 

9 

SAMPLE 

10 

SAMPLE 

11 

SAMPLE 

12 

FILE  5    GMMETR  PROGRAM 

SUBROUTINE  CONVMM 

FILE  6    GMINCH  PROGRAM 

SUBROUTINE  CONVIN 


63 

64 

74 
76 
77 
78 
79 
80 
81 
82 

87 

87 
87 
88 
89 
90 
91 
91 
95 
96 
96 
96 
96 

97 

97 

98 

100 

102 
106 
107 
108 
112 
115 
116 
117 
118 

119 

125 

127 

133 
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THIS  IS  FILE  1  OF  A  MAGNETIC  TAPE  CONTAINING  PROGRAMS  FOR 
CONVERSION  BETWEEN  METRIC  AND  U.S.  CUSTOMARY  UNITS*  PLUS  TES"? 
DATA  AND  TEST  OUTPUT  FOR  ONE  OF  THEM.  THE  PROGRAMS  *    TEST  DATA 
AND  TEST  OUTPUT  EXIST  AS  SEPARATE  FILES  ON  THE  TAPE.  EACH  FILE 
IS  TERMINATED  BY  A  TAPE  MARK  (END-OF-FILE  MARK)*  EX^FPT  THE 
LAST  FILE  IS  TERMINATED  BY  TWO  TAPE  MARKS.  PROGRAMS  AMD  TEST 
DATA  ARE  REPRESENTED  BY  80-CHARACTER  CARD  IMAGES*  9  CARD  IMAGES 
PER  PHYSICAL  TAPE  BLOCK.  TEST  OUTPUT  IS  REPRESENTED  BY  132- 
CHARACTER  PRINT  LINE  IMAGES*  3  PRINT  LINE  IMAGES  PEP  PHYSICAL 
TAPE  BLOCK.  THE  CONTENTS  OF  THE  FILES  ON  THTS  T*PE  ARF... 


FILE  2.   PROGRAM... METCO*  METRIC  TO  U.S.  CUSTOMARY  CONVFDSIOM. 
SOURCE... CATERPILLAR  TRACTOR  COMPANY. 
LANGUAGE... AMERICAN  NATIONAL  STANDARD  FORTRAN. 


FILE  3.  TEST  DATA  FOR  FILE  2. 
FILE  **•  TEST  OUTPUT  FOR  FILE  2. 


FILE  5.   PROGRAM... GMMETRf  MILLIMETRE  TO  INCH  CONVERSION. 
SOURCE... GENERAL  MOTORS  CORPORATION. 
LANGUAGE... AMERICAN  NATIONAL  STANDARD  FORTRAN, 
FEATURES... DESIGNED  FOR  DEMAND  TERMINAL  USAAF. 


FILE  6.   PROGRAM... Gm^.nICH*  INCH  TO  MILLIMETRE  CONVEPSION. 
SOURCE... GENERAL  MOTORS  CORPORATION. 
LANGUAGE... AMERICAN  NATIONAL  STANDARD  FORTRAN. 
FEATURES... DESIGNED  PQR  DEMAND  TERMINAL  USAGE. 


63 


c 
c 
c 

C      CATERPILLAR  TRACTOR  COMPANY 

C         100  NORTHEAST  ADAMS  STREET 

C  PEORIA*  ILLINOIS   6.1.602 

C 

C      PROGRAM  BY-   R.  J.  PRATHER 

C 

C   TITLF-   METRICATION-METRIC  TO  U.  S.  CUSTOMARY   06121-545   3   in/in/7^ 

C      PROGRAM   0545 

C 

C      IMPLICIT   INTEGER   (   I   -   N   ) 

C 

COMMON   0IN(2»  500) t       T0IM(2) 
C 

COMMON   IN0UT(16)»   IMCARD<30)r   INDEXR»   MC»   KlP»   NCHFK»   TD(a)» 

1  IDCARn(72)»   LTSTER(6U),   lnOUT(S)»   fIMOX(500),   MLIST» 

2  IOIN(500) 
C 

DOUBLE  PRECISION   OIN»   TPlNr   AQOCHG.   VALUE*   PI.0T»   TY^r,   CO'!, 
1  DIM,   «nUNlT»   RCONSTf   OROUND' 

c 

C      DIN(2»  500) 

C         STORAGE  FOR  TOIN   -   UP  TO  500  UNIOUE  DIMENSIONS 

C 

C      TDIN(2)   REAL   TEMPORARY   STORAGE 

C         WORD   1   TYPE  OF  CONVERSION   (INDEX  OF  LABFL) 

C         WORD   2   DIMENSION  VALUE 

C 

C      INOUT(IS)   16A1 

C         WORDS    1-  8   INPUT  DIMENSION 

C         WORDS    9-16   OUTPUT  DIMENSION   (CONVERTED) 

C 

C  INCAROC50)       2A<+»     RA1»     ?A4»     flAl»     2AU,     Ml 

C         WORDS   1-2   INPUT  IDFNTIFITR 

C         WORDS   3-10   INPUT  DIMENSION 

C         WORDS   11-20   TAKE  THE  SAMr  p/\Tj^RM.  \S    WORDS   1-10 

C 

C      INDEXR   -   INDEX  OF  THE  3  PAIRS  OF  INPUT  DIMENSION  FOR  RErnE'? 

C  SURROUTINE 

C 

C      NC   -   UNIT  NUMBER  FOR  THE  CAPO  R^ADE' 

C 

C      NP   -   UNIT  NUMBER  FOR  THE  LIME  PRINTER 

C 

C      NCHEK   -   CHECK  VARIABLE  FOR  THF  PRINTING  OF  TRPOP  HELPING 

C 

C      ID<4)   4A4 

C         WORDS   1-2   INPUT  THFHTIFIFR 

C         WORDS   3-4   OUTPUT  IDENTIFIER 

C 

C      ITDIN      INTEGER  TEMPORARY  STORAGE 

C  NUMBER  OF  niGTTS  TO  THF  RIGHT  OF  tHf  DECIMAL  POINT 
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IN  THE  DIMENSION 

IDCARDC72)   72A1 

WORDS    1-  9  PART  NUN'-BER 

WORDS   10-18  CHANGE  NUMRER 

WORDS   19-36  TITLE  BLOCK  TOLE^Anjc^S 

WORDS   37-45  CONVERSION  TO  METRIC  OR  .U.S.  CUSTOMAPY 

WORDS   46-72  IDENTIFICATION 

IDIN(500) 

STORAGE  FOR  ITDIN  -  UP  TO  500  UNIQUE  DIMENSIONS 

KINDXC500) 

ARRAY  GIVING  THE  LOCATION  OF  THE  SORTrn  DIM  ftRRAY 

LISTER(64)   -   OUTPUT  ARRAY  FOR  NUMERIC  DATA 

ID0UT(8)   -   OUTPUT  ARRAY  FOR  IDENTIFIERS 

NLIST   -   NUMBER  OF  UNIQUE  DIMENSIONS 

COMMON   /   DATA   /   KTRL(42)>   MESAG(40)»   LAPEL(5»  50)  » 
1   TABLE(2»  50) »   NLSAVE»   NUMLA*»   lSTOP(4)»   IPLAUK 

ZERO  OUT  ALL  OF  COMMON 

50  CONTINUE 

INDEXR   =   0 

NC   =   0 

NP   =   0 

NCHEK   =   0 

NLIST   =   0 

TDIN(l)   =   0.0D0 

TDIN(2)   =   0.0D0 

DO   60   I   =   1»   500 

IDIN(I)   =   0 

KINDX(I)   =   0 
60  CONTINUE 

DO   70   I   =   1»   16 

INOUT(I)   =   IBLANK 
70  CONTINUE 

DO   80   I-   =   1»   4 

In(I)   =   IBLANK 
80  CONTINUF 

DO   90   I   =   1»   72 

IDCARD(I)   =   IBLANK 
90  CONTINUE 

DO   100   I   =   1.   30 

INCARD(I)   =   IBLANK 
100  CONTINUE 

DO   110   I   =   1#   64 

LISTER(I)   =   IBLANK 
110  CONTINUE 


5f-.no 

5p,oo 
Sonn 
<Snon 
61  On 
6200 
630  n 
6')0° 
6500 
6f-,Cn 
6700 

6«on 

6900 
700" 
75  On 

7?oo 

7701 
jupn 

7r0  0 
7f>nn 
7700 
780" 
7QQ0 
Pnpo 
8 1.  n  n 
820° 
830" 
p.  4.  no 

850  o 
360  0 
8700 
880° 
ROOn 
9000 
950O 

930n 

Qti  (11 

05p« 

9^00 

0700 

9R  00 

Pqnn 

1  000O 

1010O 

1020O 

1030O 

1 04  On 

1050O 

1  OfvOn 

10700 
10P0O 
1  Oopn 
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no  i?o  i  =  i#  8 

mouT(i)  =  trlamk 

120 

CONTINUE 

DO   130   I   =   lr   50  0 
DINU  ,     I)   =   0.0Dn 
DIN(2»  I)   =   0.0D0 

c 
c 

130 

CONTINUF 

NC   =   CARD  READER  UNIT  NUMRFP 

c 
c 

NP   =   PRINTER  UNIT  fJI.IMRER 

MC=5 

NP=6 

c 

c 
c 
c 

1rj0 

CONTINUE 

READ  PART  NUMBER »  CHG  NUMBER •  AND 

READ   (   NCi   200   )   TDCARD 

2.00 

FORMAT   (   72A1   ) 

IF   (   IUCARD(l)   .EQ.   ISTOPd) 

1  .AND.   IDCARD(2)   .rO.   IST0P(2) 

2  .AND.   IDCARD(3)   .FO.   ISTnp(3) 

3  .AND.   IDCARDU)   .FO.   IST0P(4) 

1  1000 

1 1 1 0  " 
ll?0n 
1  l'.on 

1  ldr.o 

1150" 

1  Ifino 

1  1700 
1  I  n  0  0 

1  non 

12000 
1210  0 

1220" 
1  2300 

1  2'i00 
1  2^00 

CO'^'FNTS  12f-0o 

1  570  0 
12P0O 
12°0O 
1  300" 
13100 
1  3?C° 
RQ  T0  1^000  C   1330O 

1  34Q0 
NX=0  A   134?^ 

DO   300   I   =   1#   8  13^00 

INOUT(I)   =   IDCARDd  +  1  => )  !  360G 

IF   (  INOUT(I).EQ.  KTRL(l'O)    MX  =  ".*    +  !  A   1.365" 

300  CONTINUE  1  3">oo 

IF  (  NX  .EQ.fi)   IDCARD  (23)  =  KTRL(1>  A   1375^ 

CALL   DECODE   (   1»   8»   ADDCHG.   J   )  13801 

NX=0  A   13050 

DO   400   I   =   1#   8  13H00 

INOUT(I)   =   IDCARDfl  +  27)  14000 

IF   (  INOUT(I).EQ.  KTRLd4))    MX  =  NX  +  1  A   14050 

400  CONTINUE  141P0 

IF  (  NX  .  EQ  .  fi)   IDCARO  (2?)  =  KTRL(2)  A   1415° 

CALL   DECODE   (  It       fir   VALUF,   J   )  14200 

NCOLS1   =   IDINT   (   VALUE   )  14300 

IF   (   NC0LS1   .LF.   0   )   NCOL^l   =   1  1  4400 

IF   (   NCOLS1   ,GT.   4   )   NCOLS1   =   4  1450" 

N*  =  0  f>       14550 

DO   500   I   =   1,   8  1460" 

INOUT(I)   =   IDCARDd  +  36)  1470" 

IF   (  IN0UT(I).EQ.  KTRL(14))    NX  =  N'X  +  1  A   14750 

500  CONTINUE  14fi00 

IF  (  NX  .  FQ  .  3)   IDCARD  (3^)  =  KTRl.(2)  A   14fi50 

CALL   DECODE   (   1,   fi.   VALUE*   J   )  14P00 

NC0LS2   =   IDINT   (   VALUF   )  1500" 

IF   (   NC0LS2   .LE.   0   )   NC0LS2   =1  15100 

IF   (   NC0LS2   .GT.   2   )   MCOL^2   =   2  15200 

NX=0  A   I525n 

DO   600   I   =   1,   8  1530O 
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600 


MX    r    NX    +    j 


J       ) 


700 


INOUT(I)       =       IDCARDd    +    48) 

IF       (    INOUTCD.EQ.    KTRL(14)) 

CONTINUE 

IF  (  NX  .  EG  .  8)   IDCARD  (^0)  =  KTRLd) 

CALL   DECODE   (   If   8»   VALUFf 

NUMID   =   IDINT   (   VALUE   ) 

DO   700   I   =   1»   8 

INOUKI)       =       IDCARDd    +    54) 

CONTINUE 

CALL   DECODE   (   1»   Q»   PLOT* 


) 


PRINT  OUT  PART  NUMRER  CARP 


900 


WRITE   (   NP»   900  )   IDCARD 

format  (  im» 

1  45H  METRIC  -  U.S.  CUSTOMARY  CONVERSION  TABL^  /    / 

2  53H  NUMBER  OP      , 

3  52H  NUMRER  OF                                  / 

4  53H  PART  OUTPUT  C^LUM   . 

5  52HNS  ADDED                                      / 

6  53H  NUMBER  CHANGE        ADDITIONS     MM              » 

7  52H0THER  IDENTIFIERS   PLOT          9FJ*APKS         / 

8  1H  »   8   (   9A1»  4X   )   /   ) 

READ  IN  ADDITIONAL  IDENTIFIERS  AND  CONVERSION  FACTORS 


IF   ( 

ITEMP1 

ITEMP2 

ITEMP3 

ITEMP4 

ITEMP5 

ATEMP1 

ATEMP? 

DO   1300 


0  )  GO 
NUMLAP) 
NUMLAR) 
NUMLAR) 
NUMLAR) 
NUMLAR) 
NUMLAR) 
NUMLAR) 
NUMID 

IF  (NUMLAR. LE. 49)   GO  TO  1000 
READ  (NC»1200)   (LISTER ( I) »I=1 »20) 
WRITE  (NP»1210)  (LISTER(I)»I=lr?0) 


NUMID  ,EQ. 
=  LARELCN 
=  LAREL(2» 
=  LAREL(3» 
=  LABEL(4> 
=  LAREL(5» 
=  TABLE(1» 
=  TADLE(2» 
J      =      1, 


TO      2100 


1?00 

FORMAT  (20A4) 

1210 

FORMAT  (20H  EXCESS  IDFNTIFIER   »20Af+) 

GO  TO  1300 

1000 

READ   (   NCr   1100 

)   (   LARFL(I>  NUMLAP,)* 

L   TABLE(1»  NUMLAB)* 

TABLF(2»  NUMLAR) 

1100 

FORMAT   (   2A4»   IX, 

2A4f   1X»   TQ»   2P^.n 

NUMLAB   =   iJUMLAB   + 

1 

1300 

CONTINUE 

LABELdr  NUMLAB)   = 

I TEMPI 

LABEL (2»  NUMLAR)   = 

ITEMP2 

LABEL(3#  NUMLAR)   = 

ITEMP3 

LABEL(4»  NUMLAP)   = 

ITh.MP4 

LABEL(5»  NUMLAR)   = 

TTEMP5 

TABLEd,  NUMLAB)   = 

ATEMP 1 

TABLE (2 f    NUMLAB)   = 

ATEMP2 

NX  -  NUMl  AB-  2 

=      1 


>  f 


1  5uQn 

A 

1545" 

15S0P 

A 

1555" 

1.5600 

1  57QP 

1  5P0O 

1  sgnn 

16000 

.16100 

1620" 

I6^nn 

16400 

16Snn 

1660" 

1670  0 

16800 

i  6°on 

1700^ 

1. 7 1 0  0 

1 7?  no 

17^nn 

17400 

1  75QP 

17600 

1770O 

17pnn 

1  7ono 

1*00° 

1  8 1'tn 

1  82  On 

1  8  3  0  n 

1  Run" 

1  p.  «s  0  0 

1  860  P 

A 

'861" 

A 

!R6?0 

A 

1  qf^r 

A 

1  8640 

A 

i  8 6 SO 

A 

1  P.  e,  f,  n 

C 

1  ^7nn 

1  P.  P.  P.  0 

y   q  n  n  0 

1  Q0nn 

1Q1  0" 

i  qppn 

1  a  7  p.  o 

1  O/i  Q  n 

1  Qc^OO 

1  P60  0 

1  Q7pri 

1  O  q  Q  n 

A 

1  0  p  1 n 
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NMX  =  NX  +  1 

A   19R20 

WRITE   (   NP»   1500   )   NX 

C   19Q00 

1600 

FORMAT   (   40H0NUMBER  OF  ENTRIES  IN  COMVr 

:psion  taple  =  > 

9000O 

1   IB   /   /   / 

'01.00 

I      73H  IDENTIFIER   IDENTIFIER        ROUND 

CONVERSION     ROUNDING 

'0200 

3               / 

9030O 

+   73H  IN           OUT           TECHNIQUE 

FACTOR         UNIT 

?0400 

i 

5                 /   ) 

20500 

c 

9060O 

Do   1«00   J   =   2»   NMX 

C   ?0700 

WRITE   (   MP»   1700   )   (   LARELCTt  J) » 

T   =   lr   5   )  » 

9080" 

1   TARLEdf  J).   TABLE(2»  J) 

?oqoo 

1700 

FORMAT   (   1H  t       2A4»   4X»   2A4>   4X'   I 

ii   2F12.r;   ) 

O100n 

IF   (   J   .GE.   NLSAVE   .AND.   J   .l.T.   ! 

!'.)"LAP   ) 

2110O 

1   WRITE   (   NP>   180  0   ) 

91200 

1800 

FORMAT   (   lH+#   60Xr   35H****  TUTS  IS  « 

r^MprPARY  ENTRY  ***  +   ) 

91300 

1900 

CONTINUE 

91400 

WRITE   (   MP»   12300   ) 

91RQ0 

2100 

CONTINUE 

9160O 

C 

21700 

M   =   1 

91R0O 

3700 

CONTINUE 

21900 

C 

9200O 

C 

CLEAR  ALI  TEMPORARY  STORAGE  RFFORF  RE  am 

iG  IN  DIMENSION  DAT* 

22100 

C 

22200 

00   3800   I   =   1»   16 

92300 

INOUT(I)   =   KTBL(14) 

"52400 

3600 

CONTINUE 

29=;n" 

TDIN(1)   =   0.000 

2260O 

TniN(2)  =  o.ono 

2270O 

ITDIN   =   0 

22800 

10(1)   =   IBLANK 

2990O 

10(2)   =   IBLANK 

9300" 

10(3)   =   IBLANK' 

9310O 

ID(4)   =   IBLANK 

9320O 

C 

93300 

C 

READ  DIMENSION  ANO  IDENTIFIER   (  3  PAIRS 

AT  A  TTMF  ) 

93U0O 

c 

93B0O 

CALL   REAPER 

9360O 

c 

93700 

c 

SEARCH  LABEL  ARRAY  FOR  PROPER  IDENTIFIER 

9380O 

c 

93°0O 

DO   4400   I   =   lr   NIJMLA3 

94000 

DO   4300   J   =   1,   2 

2410O 

IE   (   ID(J)   .ME.   LAREHJr  I)   )   GO   ■ 

r  1       4  4  0  0 

?it?nn 

4MJ0 

CONTINUE 

94300 

GO   TO   5100 

24400 

1*4  00 

CONTINUE 

94500 

ImDEX   =   1 

2460" 

4&00 

CONTINUE 

94700 

IF   (   NCHFK   )   490"i»   4700 »   4900 

94P0O 

4700 

CONTINUE 

94900 

C 

°500n 

C 

PRINT  THIS  HEADING  IE  A  LEAST  ONE  ERROR 

IS  FOUNn 

2510O 

68 


c 

WRITE 

( 

MP. 

4800 

) 

4^00 

FORMAT 

( 

70nn 

LISTED  « 

rL^W 

<\nE  Tur  I 

1YPE  OF 

ERROR(S) 

. 

/ 

61.H0DJMFNSION 

2 

/ 

) 

MCHEK 

— 

NCHEK 

+ 

1 

4900 
C 
C 

CONTINUE 

PRINT  i 

3AU 

CARD 

AMD 

IDENTIFY 

ERROR 

-><5?0n 

95:*nn 

iPUT  ^ATf  CARD(S)  WITH  cOMr  T    95400 

IDENTIFIER     FRROP  "rYP^      ossoo 

25600 

25800 
95900 

9f,nnn 

C  96100 

INDEX   =   (   INDEX   -   1   )   *   8  9620O 

U=INPEX+1  A   26210 

I8=INDEX+8  A   26220 

WRITE   (   NP>   5000   )   (   INOUT.(I)f   T   -   1.   8   ).  26300 

1   ID(1).   ID(2).   (   ^rSAG(    I    >»   I   =   I1»   J8   )  C   26400 

5000  FORMAT   {   1H  »   SA1.   4X.   ?A4»   6V.   RA4   )  96^0" 

GO   TO   3700  26600 

5100  CONTINUE  ^6700 

C  26800 

C               DETERMINE    TYPE    OF    IDENTIFIER  ?&QOn 

C  "57000 

IF   (   I   .EQ.   NUMLAR   )   GO   TO   9500  07300 

TDIN(l)   =   I  ?7?0o 

C  "7300 

C      DECODE  DIMENSION  INTO  THIN  AMD  ITDlN  27400 

C  97500 

CALL   DECODE   (   If   8.   VALUE.   TTfHN   )  9760O 

TDIN(2)   =   VALUE  "770O 

C  ?7P0O 

C      CHECK  FOR  ILLFGAL  CHARACTERS  TN  DIMENSION  P7Q0O 

C  2800O 

IF   (   ITDIN   +   1   )   61C0.   37C0.   <=>200  2810O 

6100  CONTINUE  "8200 

INDEX   =   2  ^8300 

GO   TO   4600  98400 

6200  CONTINUE  98500 

C  2860O 

C      WRITE  DIAGNOSTIC  IF  MORE  THAN  500  UNlOUE  IMPUT  CAF^S  v>r    GTVFN  2*700 

C  28800 

IF   (   N   -   500   )   8600.   8600.   8500  "8P0O 

8500  CONTINUE  29000 

INDEX   =   3  99100 

GO   TO   4600  99200 

8600  CONTINUE  99300 

IF   (   N   -   1   )   8700.   8700.   oc»00  oq^oo 

8700  CONTINUE  29500 

C  9q6oo 

C      TRANSFER  ALL  TFMPORARY  STORAGF  TD  PERMANENT  STORAGE  AND  THFN  .GO  99700 

C      RACK  AND  READ  ANOTHER  CARD     STO1"5  MUST  BE  LAST  IDENTIFIER  P980O 

C  99QQ0 

DIN(1.  N)   =   TDIN(I)  30000 

DIN(2.  N)   =   TDIN(2)  30100 

IDIN(N)   =   ITDIN  3020O 

N   =   N   +   1  30300 
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60      TO      3700  -rnunn 

C  ^osni" 

C      BEGIN  EDIT  OF  DATA  -*06HO 

C      THROW  OUT  DATA  WHEN  SAV£  PREVIOUS  DAT<\  HAS  ALrFACY  BEEN  -*970n 

C      ENCOUNTERED  'Ogpn 

C  ^Qonn 

8900  CONTINUE  71P0O 

L  =   N   -   1  Ml  On 

DO   9200   I   =   1»  L                                               M20O 

DO   9000   J   =   1»  .9                                                  M30O 

IF   (   TOIN(J)   -  DIN(J»  I)   )   9?00»   9000.   920"                   M400 

9000  CONTINUE  71S0O 

IF   (   ITDIN   -   IDIN(I)   )   92.00*   9100,   92.00  ^lftO^ 

9100  CONTINUE  71^00 

GO   TO   3700  7lpnn 

9200  CONTINUE  'loon 

GO   TO   8700  ^2Q0n 

C  72100 

C      BEGIN  SORT  OF  DATA  722C-0 

C      NUMBER  KINDX  ARRAY  FROM  i  TO  500                                       ^2700 

C  T?uOo 

9500  CONTINUE  7250" 

NLIST   =   N   -   1  72600 

C  "<27P0 

C      NLIST   =   THE  NUMRER  OF  OUTPUT  TTFMS  "*?R0n 

C  T2°0ri 

IF   (   NLIST   .LE.  0   )   GO   TO   50                                  "3000 

DO   9600   I   =   1»  500                                                ^710" 

KINDX(I)   =   I  73200 

9600  CONTINUE  7330* 

CALL   DASORT  7340P 

DO   9700   K   =   1»  NLIST                                            -*7R0n 

I   =   KINDX(K)  -<3600 

TYPE   =   DIN(1»  I)  73700 

IP   (   TYPE   .GT.  1.0D0   )   GO   TO   °800                             73R0" 

9700  CONTINUE  T3ono 

NTYPE1   =   NLIST  ^4000 

NTYPE2   =   0  ^100 

GO   TO   9900  7420P 

9800  CONTINUE  74700 

NTYPEl   =   K   -   1  74400 

NTYPE?   =   NLIST   -   NTYPE1  74500 

9900  CONTINUE  ^4600 

C  74700 

C      BEGIN  PRINT  OUT  OF  INPUT  DATA  AND  ANSWERS                             ^4P0O 

C  -*4Q0O 

C      BEGIN  TYPE  1  PRINT  OUTS   (MILLIMETRE  TO  IMCH  CONVERSION)              ^5000 

C  ^5100 

C      CONVERT  FROM  METRIC  TO  ENGLISH  UNITS  ^5200 

C  75300 

CON   =   1.0D0   /   25.4D0  35400 

IF   (   NTYPE1   .LE.   0   )   GO   TO   12600  ^5500 

NLINES   =   (   NTYPE1   +   NCOLS1   -   1   )   /   N!C0LS1  3560O 

KOUimi       =      0  75700 
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DO   12500   NLINE   =   1»   NLINFS  35800 

KOUNT   =   KOUNT   +   1  "^5ooo 

IF   (   NLINE   -   1   )   10500*   10000»   losoo  76000 

10000  CONTINUE  76100 

C  76200 

C      SKIP  PAGE  AND  PRINT  HEADING  FOR  MM  TO  IN  CONVERSION'S  -*630P 

c  **64on 

WRITE  (NPtlOOlO)   (IDCARD(L)>  L=l»12)  A   76450 

10010  FORMAT  (  6H1PART  »8AlrlOH    CHANGE  ,^l)  A   "<6"fS0 

GO   TO   (   10020»   I0060f   10120»   10160   )»   NfOL^l  ^6500 

10020  CONTINUE  "*6600 

WRITE  (NP»10040)  C   '67^0 

10040  FORMAT  (  1H0»  1  <2HMM»8X»4HINCH» 10X) )  C   '6R0O 

GO   TO   10190  7710" 

10060  CONTINUE  "*7200 

WRITE  (NP»100b0>  C   '7300 

10080  FORMAT  (  1H0»  2  (2HMM» 8X»4HINCH» 10X) )  C   77U0O 

GO   TO   10190  '7700 

10120  CONTINUE  77800 

WRITE  (NP»10140)  C   ^7900 

10140  FORMAT  (  IHOr  3  (2HMM»8X»  4HINCH»  10X)  )  C   '800" 

GO   TO   10190  7070" 

10160  CONTINUE  ^A'jOO 

WRITE  (NPrlOl^O)  C   '8500 

10180  FORMAT  (  1H0»  4  (2HMM» 8X» 4HINCH* 10X) )  C   7^600 

10190  CONTINUE  78900 

i  101+00  CONTINUE  79400 

10500  CONTINUE  'Q50n 

DO   10600   I   =   1»   64  79600 

LISTER(I)   =   IBLANK  7970^ 

10600  CONTINUE  ?Popo 

DO   12100   NCOL   =   If   NC0LS1  TQoqn 

K   =   (   NCOL   -   1   )   *   NLINES   +   ML  INF  "000° 

IF   (   K   .GT.   NTYPF1   )   GO   TO   12100  "0100 

I   =   KINDX(K)  'JO?00 

C  "030P 

C      CLEAR  ALL  TEMPORARY  ARRAYS  BEFORE  LOADING  WITM  CHAPACTFRS  ^O^  '-+040O 

C      PRINTING  40500 

C  "060^ 

DO      10700      J      =      1*       16  "0700 

INOUT(J)       =      KTBL(14)  'lOflOP 

10700  CONTINUE  "0900 

TDIN(l)   =   0.0D0  "1000 

TDIN(2)   =   0.0D0  "Hon 

ITDIN   =   0  «!l?0o 

TDIN(l)   =   DIN(1,  I)  '1.1300 

TDIN(2)   =   DIN<2»  I)  "l<+00 

ITDIN   r   IDIN(I)  "ISOO 

C  '+ 1 6  n  o 

C      INPUT  DIMENSION  PREPARATION  "17fio 

C  <l  1  ° .  0  n 

VALUE   =   TDIN(2)  UlQOn 

CALL   ENCODE   (   b   8»   VALUE*   TTnp-   )  "200" 

C  "210O 
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C      ROUND  TO  1  MORE  PLACE  TO  THE  RIGHT  OF  THE  nECTM/J|_  PQI,|T  THAN!  U2?0" 

C      GIVEN  IN  THE  DIMENSION  VALUE  WITH  A  MINIMUM  Of  3  "?^QO 

C  42400 

IPLACE   =   ITDIM   +   1  42c,no 

IF   (   ..JLACE   -   3   )   119C0»   12000,   1"?000  U2600 

11900  CONTINUE  'i27nn 

C  42800 

C      MINIMUM  OF  3  PLACES  ROUND  OFF  42900 

C  'i3P0n 

IPLACE   =   3  i*3!  no 

12000  CONTINUE  '^?^ 

C  'i330r 

C      CONVERT  DIMENSION*  ROUND  TO  PROPER  NU'-'BER  OF  PLACES  AMD  PLACr  IN  "340" 

C      ARRAY  READY  FOR  PRINTING  43Son 

C  <436QO 

DIM   =   TDIN(2)   *   COM  437QO 

DIM   =   DARS   (   DIM   >  43A0O 

DIM   =   DROUNO   (   DIM,   IPLACE   )  i|3ono 

CALL   ENCODE   (   9»   16,   DIM,   IPLAC^   )  44000 

MYLINE   =   (   NCOL   -   I   )   *   16  44mn 

DO   12050   J   =  It       16  '14200 

JJ=MYLINE+J  A   44250 

LISTER(  JJ  )     '=       TMOUT(J)  C       hi+^pi 

12050  CONTINUE  uuuqn 

12100  CONTINUE  44500 

C  4460O 

C      PRINT  ORIGINAL  INPUT  DATA  AND  CONVERTED  DMA  "470^ 

IF  (  KOUNT  .  FQ  .  1  )   WRITE  (  NPr  12300  )  A   U47SO 

C  U4F.0.n 

WRITE       (       NP,       12200       )        (       LISTER(J),       J      :  '  li       64       )  Mt+o0n 

12200  FORMAT   (   1H  t       8A1,   2X»   8A1,   6X»   8Al»   ?X,   °A1,   6V,   RAl»  C   4500.P 

1   2X»   8A1»   6X»   RAl»   2X>   8A1   )  C   45*00 

IF   (   MOD   (   KOUNT,   5   )   .EO.   0   >   WRITr   (   NP,   i?30C   )  45200 

12300  FORMAT   (   1H    )  45300 

12500  CONTINUE  45400 

12600  CONTINUE  4550O 

C  U560O 

C      GREATER  THAN  TYPE  1  CONVERSION  DATA  (    OTHER  THAN  MM  T^  IN  )  45700 

C  U5R0O 

IF   (   NTYPE2  ,  .LE.   0   )   GO   TO   15O00  U5oon 

KOUNT   =   0  'ifio  on 

NLINES   =   (   NLIST   -   NTYPE1   +   NCOLS?   -   1   )   /   NCOI  S?  U61P0 

DO   14000   NLINE   =   I,   NLINFS  U620O 

KOUNT   =   KOUNT   +   I  4630  0 

IF   (   NLINE   -   1   )   13000»   t2800»   t3000  16400 

12P00  CONTINUE  "6500 

C  u660n 

C      SKIP  2  LINES  AND  PRINT  HEADING  FOR  OTHER  THAN  MM  TO  IN  CONVERSIONS    46700 

C  46*0  0 

WRITE  (NP, 10010)   <IDCARUiL)»  L=l»12)  A   46*50 

IF   (   NCOLS2   .EO.   1   )  46Q0O 

1  WRITE   (   NP#   12860   )  C   U7000 
12850  FORMAT   (   1H0»                                                     C   47100 

2  2   (   3HDIM,   7X»   5HIJNITS»   6X   )   )  M730O 
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IF   (   NC0LS2   .EQ.   2   ) 

1  WRITE   (   NPf   12900   ) 
12900  FORMAT   (   lhO» 

2  2(3hdim»7x»5hunits»6x»^hdim»7x»5hunits»«*)  ) 
12975  continue 

13000  continue 

DO   13025   I   =   1 t       32 

LISTER(I)   =   IBLANK 
13025  CONTINUE 

DO   13050   I   =  \f       8 

IDOUT(I)   =   IBLANK 
13050  CONTINUE 

DO   13800   NCOL   =   1 »   NC0LS2 

K   =   (   NCOL   -   1   )   *   NLINES   +   NLINE   +   MTYPE1 

IF   (   K   .GT.   NLIST   )   GO   TO   13800 

I   =   KINHX(K) 


C 
C 

I  C 
C 


CLEAR  ALL  TEMPORARY  ARRAYS  BEFORE  LOADING  WITH  CHA^ACTFRS  cOR 
PRINTING 


DO   13100   J   =  \>       16 
INOUT(J)   =   KTRL(14) 

13100  CONTINUE 

DO   13200   J   =   lr   4 
ID(J)   =   IBLANK 

13200  CONTINUE 

TDIN(I)   =   o.odo 
TDIN(2)   =   0.0D0 
ITOIN   =   0 
TDIM(l)   =   DIN(1.  I) 
TDIN(2)   =   DIN(2i  I) 
ITDIN   =   IDIN(I) 


C 

c 
c 

c 

c 


INPUT  DIMFNSION  PREPARATION 


VALUE   =   TDIN(2) 
CALL   ENCODE   (   1 » 


R»   VALUE*   TTniM   ) 


SETUP  INPUT  AND  OUTPUT  IDENTIFIERS 
CALCULATE  CONVERSION  CONSTANT 
SETUP  TYPF  OF  PRINT  OUT 

N   =   TDIN(1) 
10(1)   =   LA6EL(1»  M) 
10(2)   =   LABEL(2.  N) 
ID (3)   =   LABEL (3,  N) 
IDU)   =   LAB^LU,  M) 
IPLACF   =   LABFL(5»  M) 
CON   =   TABLEdf  N> 
RDUNIT   =   TAnLE(2»  N) 

CONVERT  DIMENSION  AND  CHCCK  SPECIAL  C"SF  TOR  DFGRF^  C  xO  r'-pr  rF- 

DIM   =   TDIN(?)   *   DABS   (   COM   ) 


47400 
47soo 
n760o 
47800 
4R30O 
484  0  0 
48500 
4860O 
(18700 
43B00 
48900 
'19000 
491.0  0 
49200 
40300 
494  0  0 
40^00 
49600 
49700 

UQfiOO 

uqqon 
^0000 

soioo 

^0200 
^0300 

c;040o 

c;050o 
S060O 
S0700 
^080^ 
S0Q00 
^1000 
51100 

^l?oo 

S1300 
51400 
S150" 
■U60O 
M700 
SlftOO 
^1900 
^2000 
^2100 
^2200 
F230O 
S240O 
^2500 
^2600 
^2700 
^2800 
^2^00 

s3no',> 
^3100 
^32°o 
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i.OnP   )   DIM   =   OTV 
13400 f   13400 »   1.3300 


IF   (   COM   .LT. 
IF   (   RuUNIT   ) 

3300  continuf 

rconst  =  o.sdo 

if  (  dim  .lt.  0.0h0)  rconst  - 

idim  =  dim  /  rdunit  +  rconst 

DIM   =   IDIM 

DIM   =  Qiv       *   RDUNIT 
3400  CONTINUE 

CALL   SETUP   (   DIM,   TPLACE   ) 

MYLINE   =   (   NCOL   -   1   )   * 

DO   1350U   J   =   If   1ft 

JJ=MYLINE+J 

LISTER (     J J     )   =   INOUT(J) 
3^00  CONTINUE 

NCOL   -   I   )   * 
=   lr   4 


3?. 000 


-0.5D0 


lft 


MYLINE   =   ( 
DO   1360U   J 
JJ=MYLINE+J 
IDOUT(     J J 
3600  CONTINUE 
3B00  CONTINUE 


)       =       ID (J) 


PRINT    OUT    ALL    INPUT    DATA    AND    ALL    CONVERTED    VA'  UFS    '-'IT'i    i\pr>r>^nr>i  i\jc 

IDENTIFIERS 

IF  (  KOUNT  .  c-Q  .  1  )   WRI.TF  (  fiP»  12^00  >  A 


WRITE   (   NP»   13Q00 

)   ( 

LISTER 

(J)  t 

J   =   If 

n       )  , 

1   IDOUT(l)f   IDOUT(2)» 

( 

LISTER(J) > 

J   =   ^f 

I  ft   )  » 

2   ID0UT(3)f   ID0UT(4)» 

( 

LIST^Rt 

J)  » 

J   -    17r 

'4   )   t 

3   IDOUT(5)r   IDOUT(6)» 

( 

LISTERt 

J)  f 

J   =   2cf 

32   )  . 

4   ID0UT(7)»   TDOUT(a) 

13900  FORMAT   (   1H  t       BA1» 

?\t 

2A4* 

^xt 

8A1#    ?Xf 

?A4» 

1             6X  .   RAlf 

2Xf 

2A4» 

3X» 

OAlf   ?Xf 

?A4   ) 

IF   (   MOD   (   KOUNT* 

5 

)   .EC. 

0 

)   WRITE   ( 

MP» 

14000  CONTINUE 

15000  CONTINUE 

GO   TO   50 

16000  WRITE  (  NPr  lftOOl  ) 

16001  FORMAT  (  10H1 

) 

STOP 

END 

SUBROUTINE   ENCODE   < 

lr 

J»   R» 

NO" 

) 

12301   ) 


THIS  SUBROUTINE  TAKES  a  REAL  NUMERIC  WORD  AND  EXAMINES  EACH 
CHARACTER.   IT  THEN  TAKES  THE  REAL  WORD  AND  BUILDS  VP    AN 
ALPHABETIC  CHARACTER  ARRAY   (Al) 

INOUT  -  ALPHABETIC  CHARACTER  ARRAY 

I  -  BEGINNING  WORD  IN  INOUT  ARRAY 

J  -  LAST  WORD  IN  INOUT  ARRAY 

R  -  REAL  NUMBER 

NDR  -  NUMBER  OF  PLACES  TO  THE  RIGHT  nr    THF  DECIMAL  POINT 


53400 
5350" 
5360" 
^3700 

^3P00 

K3npn 

541  01 
R4201 
5430" 
S440n 
B4450 
5450" 
^460" 
54700 
5 '4800 
^4ft5i 
S4°00 
K500O 
^510n 
ft5200 
^530n 
^540n 
S5450 
ft550O 
^ftftO" 
R5700 
S5B0" 
55900 
^6000 
S6101 
5620  n 
5630" 
^6400 
56500 
56600 
"^661" 
5662" 
^6630 
5670  0 
57100 
^7?0" 
5730° 
5740O 
•^7500 
=;760O 
S770n 
^7*0" 
57900 
^8000 
=  8100 
5B200 
58300 
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.1,  J»  R»  AND  NDR  MUST  BE  GIVEN 
INOUT  IS  OUTPUT 


IMPLICIT   INTEGER   (   I   -   N   ) 

COMMON   DIN(2»  500) t       TDIN(2) 

COMMON   INOUT (16) 

DOUB'-E  PRECISION   OIN»   TDlN»   P»   AR 

COMMON   /   DATA   /   KTBL(42)»   MESAG(40)>   LAREL(5»  50), 
1   TABLE<2»  50) t       NLSAVEf   NUMLAR*   ISTOP(U),   TPLAMK 

DO   100   N   =   I»   J 
INJOUT(N)   =   KTBL(14) 

ioo  continue 

IF   (   NOR   )   200*  ^OOf       300 
200  CONTINUE 
RETURN 


300 

CONTINUE 

IF   (   R   ) 

500»   400» 

500 

400 

CONTINUE 
INOUT(I)   = 
RrTURN 

KTBL(l) 

500 

CONTINUE 
NTC   =   n 
NDL   =   0 
IDCML  =       1 
N   =   I 
AR   =   R 

IF   (   R   ) 

600»   700» 

700 

600 

CONTINUE 
AR   =   -R 
NTC   =   1 
N   =   N   + 
INOUT(I)   = 

1 
KTBL(12) 

700 

CONTINUE 
IR   =   AR 

» 

800 

CONTINUE 

IF   (   IR   - 

■   IDC^L   ) 

1000» 

Qu0 

900 

CONTINUE 
NDL   =   NDL 

+   1 

IDCML   =   IDCML   *   10 

GO   TO   800 

1000 

CONTINUE 

NTC   =   NTC 

+   NDL   + 

NDR 

+   1 

IF   (   NTC 

-   (   J   - 

I   + 

1   ) 

1100 

CONTINUE 
RETURN 

■->o  0 


)   i?on,   l?pn,   noo 


1200  CONTINUE 


Sfluon 
S850n 
c;860n 
58700 

S8fl0c 

^9100 
^92  0  0 
S9300 

^9600 
SQ70H 

sgpnn 

60000 

(=-oir^ 
P.020O 
£.0300 
60400 

«=.n50o 
6060O 
f»070O 
60P0O 
f=>0P0n 
6inno 
(^  1. 1  n  n 
r-,l?nn 
^l.^oo 
f:  1 1\  n  o 
^150° 
P.  1 6  0  0 
M7P0 
(=>  1  p.  o  0 
f- 1  ?  n  n 
P>2nn^ 
621  On 
62?  oo 

6240^ 
P,?60n 

^2r-,nr 

P,^70n 
^2."  no 

6300O 
63100 
fi320n 

£3"*Po 
63400 

£v3snn 
A3^no 
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inCP   =   MTC   -   MOR   +   1-1  f.370" 

INOUT(IDCP)   =   KTBLU3)  ^310" 

IR   =   AR   *   io.odo   **   NDR   +  0.190                              63QQn 

IDCML   =   10   **   (   MDL   +   NDR  -   !   )                              640,00 

1300  CONTINUE  A4l0n 

IN   =   IR   /   IDCML  M»20n 

IR   =.  IR   -   IN   *   IOCML  64300 

IF   (   N   -   IDCP   )   1500>   1400»   1^00  64400 

1400  CONTINUE  K4500 

N   =   N   +   1  64600 

1500  CONTINUE  *>4700 

INOUT(N)   =   KTBLdN   +   1)  ^4^nn 

N   =   N   +   1  Al+qno 

IDCML   =   IDCML   /   10  65000 

IF   (   IDCML   )   130n#   1600»   1300  ^510^ 

1600  CONTINUE  (=.5200 

RETURN  65300 

END  P.5400 

SUBROUTINE   DECODE   (   I»   J»   R»  NOR   )                              6580O 

C  frftnnr 

C      ThIS  SUBROUTINE  TAKES  AN  ALPHABETIC  ARRAY  IN  f  Al )  HJD  FXAmTNF^  66100 

C      EACH  CHARACTER  TO  DEVELOP  A  REAL  WORD  ^6?no 

C  66300 

C      INOUT   -   ALPHABETIC- ARRAY  A6'400 

CI-   BEGINNING  WORD  IN  INOUT  ARRAY                                 6650* 

C      J          LAST  WORD  IN  INOUT  ARRAY  66600 

C      R          REAL  WORD  66700 

C      NDR     -   NUMBER  OF  DFCIMAL  PLACES  TO  THE  RIGHT  OF  THE' DECIMAL  5680* 

C                 POINT  66900 

c  A7nnn 

C      ImOUT*  I  AND  J  ARE  INPUT  DATA  67100 

C      R  AND  NDR  ARE  OUTPUT  DATA  ^7^01 

C  ^73no 

C  6740" 

C      IMPLICIT   INTEGER   (   I   -   N   )  67500 

C  67601 

COMMON   DIN(2»  500)  >   TDIN(2>  6770" 

C  67P0^ 

COMMON   INOUT  (16)  ^7<->00 

C  f.8000 

DOUBLE  PRECISION   DIN»   TDIN»   R»  SEYEGf!,   DCML                   C   68100 

C  68?Qn 

COMMON,   /   DATA   /   KTRL(42)»   MESAG(40)r   LAPEL.  (5»  501 ,  C   68300 

1   TABLE<2»  50)  »   MLSAVEr   NUMLAB*  ISTOP(U)r   IRLA"'K                A   6835" 

C  <=,8uno 

IR   =   0  6«500 

NDR   =   0  6860  n 

K   =   0  68700 

IDCML   =   1  68800 

NSW   =   0  Aoonn 

SEYEGN   =   1.0D0  (=.9000 

KTBL11   =   0  69100 

KTBL12   =   0  69?00 
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KTBL13   =   0  f.9300 

DO   1000   M   =  I,   J                                                  69400 

NC   =   INOUT(N)  59500 

IF   (   NC   .EO.  KTBL<14)   )   GO   TO   1000                            69600 


GO 

TO 

loon 

GO 

TO 

QOO 

GO 

TO 

una 

IF   (   NC   .EO.   KTRL(13)  )   GO   TO   Q00                              69700 

IF   (   NC   .NF.   KTBL<12)  )   GO   TO   400                             f.9800 

SEYEGN   =   -1.0P0  K990O 

IF   (   KTBL11   )   550»   35C»   550  70000 

350  CONTINUE  70100 

KTBL12   =   KTRL12   +   1  70200 

IF   (   KTBL12   -   1   )   550r   100O,   S50  70700 

400  CONTINUE  7040O 

DO   500   K   =  It       11  70500 

IF   (   NC   .EQ.   KTBL(K)  )   GO   TO   *00                               70600 

500  CONTINUE  70700 

550  CONTIMUF  70B00 

NDR   =   -2  70Q0O 

R   =   0.0D0  71000 

RETURN  71100 

C  71200 

(S00  CONTINUE  713C0 

IF   (   K   -   10   )   700,  700»   950                                    71400 

700  CONTINUE  71500 

IR   =   IR   *   10   +   K   -  1                                           7lf,oo 

IF   (   NSW   )  800,   1000»  POO                                         71700 

800  CONTINUE  71roo 

IDCML   =   IDCML   *   10  71900 

MDR   =   NOP   +   1  72000 

GO   TO   1000  72100 

900  CONTINUE  72200 

NSW   =   1  7230O 

KTBL13   =   KTBL13   +   1  72400 

TF   (   KTRL13   -   1   )   550,   1000»   550  72500 

950  CONTINUE  72600 

IF   (   KTPL12   )   550,   975*   550  7270O 

975  CONTINUE  ->2P0O 

KTBL11   =   KTBL11   +   1  72Q0O 

IF   (   KTRL11   -   1   )   550,   1000»   ^50  7300O 

1U00  CONTINUE  73100 

DCML   =   IDCML  73200 

R   =   IR  7370O 

R       =      R       /      DCML       *       SFYEPN  7-5400 

IF       (       K       )       1200,       1100,  1200-                                                                                                     ">350n 

1100    CONTINUE  7360O 

NOR       =       -1  73700 

1200  CONTINUE  73*00 

RETURN  73°00 

END  "'lOOO 

SUBROUTINE   DASORT  74400 

C  -74^00 

C  746Q0 

C      THIS  SUBROUTINE  SORTS  THE  LARGE  ARRAY  OF  TN°UT  pi ^NS TONS  TNTO        74700 

C      ASCENDING  ORDEP  T4«0O 

C  74Q0O 
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C      DIN     -   ARRAY  OF  T'PUT  pATA                                          750Q0 

C      KINDX   -   ARRAY  SHOWING  THE  SORTFD  OP-^R  ^P  DTM  "^lOO 

C  75200 

C      IMPLICIT   INTEGER  (   T   -   N   )                                         75300 

C  75U0O 

COMMON   DIN(2»  500),   TDIN(2)  75S0O 

C  -*5fiOn 

COMMON       IM0UT(16)t  IMC\RO(30)#       INDE*R»       NC »       MP,       N^UFK»       Tn(U),          "^OO 

1  I0CARD(7<:)»   LISTFR  (6*»)  #   ID0UT(8),   KTMPX(500),   MLTST,  7580O 

2  IDIN(^OO)  7590O 
C  7600O 

""  JBLF  PRECISION   DIN»   TOIM  76100 

C  78?0o 

MMM   =   NLIST  7630  0 

100  CONTINUF  76^on 

MMM   =   MMM   /  Z  7  £,500 

IF   (   MMM   -   1   )   ^no»   300,   300  76600 

PJO  CONTINUE  76700 

RETURN  76R0O 

C  76900 

300  CONTINUE  77000 

M       =       MMM       +1  77100 

DO    1000       1=    M     »     NLIST  "'7?0O 

j      r       I               MMM  77300 

KI       =      KIMDX(I)  7740O 

KJ      =      KINPX(J)  7750O 

DO       400       MM    =    1»     ?  77600 

IF       (       DIM(NN»    KI)  -       DIN(NN»    KJ)        )        rn'it       '(00,        10"°                                         7770O 

'lOO  CONTINUE  77P0O 

GO   TO   1000  77900 

500  CONTINUE  78000 

L   =   I  781Q0 

nOO  CONTINUE  7820  0 

KINDX(L)   =   KJ  7830O 

L   =   J  7BU0O 

J   =   J   -   MMM  7gson 

IF   (   J   -   1   )  900,   700»   70''                                      78f,0o 

700  CONTINUE  78700 

KJ   =   KINDX(J)  7(?P0O 

DO   ROO   NN  =  1»  2  79O0O 

IF   (   DIN(NN»  KI)  -   DIN(NN»  KJ)   )   600,   POO,   900                 79000 

:->00  CONTINUE  791  QO 

OOO  CONTINUE  79200 

KINDX(L)   =   KI  79300 

1000  CONTINUE  79400 

GO   TO   100  79500 

END  79600 

SUBROUTINE   SETUP  (   PIN,   IPLACF   >                                  flOOOO 

C  O010O 

C  P0200 

C      IHIS  SUBROUTINE  EXAMINES  THE  CONVERTED  VALUES  OF  miuiFH^IOM  A0300 

C                AND  ALONG  WITH  THE  PRINT  OPTION  (IPLACF)  DECTDES  H^W  POUOO 

C      MANY  PLACES  TO  THE  RIGHT  OF  THE  DECIMAL  PoTNT  TO  PRINT  OUT            f>0500 

C  80600 


78 


NO  MORE  THAN  3  SIGNIFICANT  DIGITS  ARE  PRINTED  OUT 

DIM      -   CONVERTED  DIMENSION 
IPLACE   -   PRINT  OPTION 

IMPLICIT   INTEGER   (   T   -   N   ) 

COMMON   DIN(2*  500) t       TDIN<2) 

COMMON   IN0UTU6) 

DOUBLE  PRECISION   DIN»   TDIN»   HIM»   DROUND 

COMMON   /   DATA   /   KT^LU2)»   MESAG(40)»   LAnEL(5»  50) , 
1   TABLE(2»  50)  >   NLSAV^f   NUMLARr   IST0P(4)»   TBL.AMK 

IF   (   DIM   .EG.   0.0D0)   GO   TO   1000 


LARGE t       MPl  ACE   ) 
300»   100 


CALL   SIGMIF   (   DIM» 
IF   (   LARGE   )   "500. 

100  CONTINUE 

DO   200   J   =   <3»   16 
INOUT(J)   =   KTBL(41) 

POO  CONTINUE 
RETUKN 


300  CONTINUE 

IF   (   MPLACE   )   400 »   500 »   500 
400  CONTINUE 

IVAL   =   0 

GO   TO   600 
500  CONTINUE 

IVAL   =   MPLACE 
600  CONTINUE 

NDR   =   IVAL 

IF   (   IPLACE   ) 
700  CONTINUE 

DIM   =   DROUND 
800  CONTINUE 

CALL   ENCODE   ( 

RETURN 


70n»   900»   900 
(   DTMr   IVAL   ) 
9>   16 t       DIM»   NPP   ) 


Q00  CONTINUE 

NDR   =   MINO   (   NDRr 
IVAL   =   NDR 
GO   TO   700 
1000  CONTINUE 
NDR   =   C 
GO   TO   800 
END 
SUBROUTINE   SIGMIF   ( 


IPLACE   ) 


LARGE »   IPL'VCE   ) 


value » 
c 
c 

C      THIS  SUBROUTINE  DETERMINES  THE  NUMRFR  OP  STGNTFTC?A!T  ^rrlITq 
C      GIVEN  A  DIMENSION  VALUE 


P070O 

oopoo 
pOQQp 
PlOOn 
Pi  ion 
R 1  ?  o  n 
p  \  3  0  n 
p.  l  n  o  n 

PlRpo 

qi6oo 

n  17(10 
p.  1  p  o  1 

PlQPO 

a^noo 

P20^n 
P  2  1 0  n 
P  2  2  0  o 
P2300 

P  2  4  0  0 
p?cno 
P2(^oo 
P  2  7  P  o 
«2P0n 

o?ono 
p  3  n  n  o 
P3.1  no 
P  3  0  0  o 
P3.300 

P  3/10  0 

P350n 

0  3600 

0370  n 

P3POO 
P39PO 
pq.000 
n'HOn 
no  opo 
.q  n.  3  n  o 
p'mno 

P  4  5  0  o 

p  uc,  no 
r  47  no 

O  (4.  g  p  O 

P  u  o  p  0 
p  5 1  p  0 

P50  0  <"V 

P5300 
P5M  00 

05  PP  0 
P59QP 

06  POO 
o  r-,  1  To 

06?Pn 
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VALUE    -   CONVERTFD  OTMENSION 

LARGE    -   CHECK  FOR  TOO  LARGE  A  NUMBER  TO  PRTf'T  OMJ 

IPLACF   -   NUMBER  OF  PLACES  FOR  ROUND  OFF  SU6n0l  ITIMF 


IMPLICIT   INTEGER   (   T   • 
DOUBLE   PRECISION   VALUF» 


N   ) 
VAL»   FACTOR »   DRCCNO 


(   VALUF   ) 


<+noi 


900 »   70 n 


)   60^, 


900, 


IPLACE   =   0 

LARGE   =   0 

VAL   =  DARS 

NL   =   8 

FACTOR   =   10000000. 0D0 
100  CONTINUE 

IF   (   VAL   -   FACTOP   ) 
200  CONTINUE 

FACTOR   =   FACTOR   /   10.0DO 

NL   =   NL   -   1 

GO   TO   100 
300  CONTINUE 

IF   (   VALUE 
400  CONTINUE 

IF   (   NL   - 
500  CONTINUE 

LARGE   =   1 

RETURN 

600  CONTINUE 

IF  (  NL 
70C  CONTINUE 

IF  (  NL 
800  CONTINUE 

IF  (  NL 
900  CONTINUE 

IPLACE   = 

VALUE   = 

RETURN 

END 

SUBROUTINE   READER 

IMPLICIT   INTEGER   (   I   -   N   ) 


COMMQN  DIN(2>  500) »   TDIN(2) 

COMMON  IN0UT(16)»   INCARD(30)» 

L  IDCARD(72)»   LTSTFR(6U), 

>  IDIN(500) 


200»   200»   30' 


500 


+   5   ) 

500» 

900»   90d 

-   7   ) 

800» 

900»   500 

+   6   ) 

500» 

900»   900 

-1   *   ( 

OUND   ( 

NL 
VALUE 

-   3   ) 
»   IPLACE 

TMriFvR»   NC»   HP,   NC^FK»   Tn(U)» 
lnO"T(n)»   KINDX(500)»   MLTr-T» 


DOUBLE  PRECISION   OIN»   TDIN 

6.000 


INDEXR   = 
GO   TO.   ( 


INDEXR   +   1 
1000»   4000* 


INDEXR 


rf,ij  no 

«660n 
nfi?nn 

Qf,qpn 

o7pn"> 

P72Pn 

nyno 

o7um 

P7f>no 
°770n 
o,7flpn 
°7O0n 
qponn 
*BlCn 
°  p  ?  o  n 

o  a,n  no 

Q«70r 
pftnnn 

RRQQO 

pqnon 
qgi(in 
ngppn 

R9500 

p  Q70n 
pap  (in 
pQonn 
QQr\p,o 
°010^ 

°0fSnn 
ort70n 
oonnn 
ooorin 
°  1 0  0  n 
on  nn 

olefin 
oiaon 
oison 
olfinn 

O170P 
oiRpn 

olooo 
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"200O 

op  inn 

ly   )   )  oppon 

"23nn 

opspo 

"2600 
O270fl 
npp.on 

qpapn 
"3000 
o,3l0" 
°3?no 
"3300 

Q3'+n" 

Q3Snn 

"360n 
«37Pn 
o3pon 

n3"0n 

O'non 
94?  Qn 

o  (;  t  n  n 

04500 

"460n 

(       VALNFf       T^LACE       )  C       "500° 

"5i  on 

"5200 

"5300 
UTAH,   AL^KA*   HA>'AIT»  Q5U0O 

C   wn„ 

C  "5600 

C      V-.LUE   =   NUMBER  TO  Br  ROUNDED  "Y  CATER"!!  LAP.  STAN"ARnc;   (+  »R  -)     05700 

C      OROUlMn   =   ROUMDED  NUMBER   (  +  OR  -  >  05090 

C      IPLACE   =   NUMBER  OF  PLACES  TO  THE  R-IRHT  ^F  THE  DFrIMA|  POINT  IF      o^qpn 

C                   POSITIVE  OR  NUMBER  "F  ZEROS  TO  THF  LEFT  "F  THE  O6P00 

C                   DECIMAL  nOI!jT  IF  NEGATIVE  %lin 

C  n6?0n 

FACTOR   =   DSIGN   (   10. non   **   T"LA^Fr   VALUE   )  "6300 

UTAH   =   VALUE   *   FACTOR  o^upn 

IDAHO   =   IDINT   (   UTAH   )  "650o 

ALASKA   =   IUAHO  "6600 

HAWAII   =   UTAH   +   O.SOO  06700 

IOWA   =   IOINT   (   HAWAII   )  o&^00 

TEXAS   =   IOWA  oeonn 

IF   (   DABS  (  UTAH  -  ALASKA  -  0.5"0  )   -   0.000100   )   1»   lr  2  07000 

1  DPOUMD  =  (  ALASKA  +  DMOD  (  ALASKA ,  2.nnn  )  )  /  f;ctor  07100 
RETURN  "7-200 

C  °73Qo 

2  DROUND  =  TEXAS  /  FACTOR  07400 
RETURN  o7son 
END  "760 0 


in  00 

CONTINUE 

READ   ( 

MC#   2000   ) 

INCARQ 

2u00 

FORMAT   ( 

3   (   OA1. 

IX,   2A<+, 

DO   JO 0  0 

I   =   1.  A 

IMOUT(I) 

=   INCARD(I) 

30  0  0 

CONTINUE 

10(1)   = 

INCAR0(9) 

in(2)   = 

INCARO(IO) 

RETURN 

C 

4000 

CONTINUE 

no   5000 

I   =   b   R 

INOUT(I) 

=   INCAROU 

+  LO) 

50  00 

CONTINUE 

10(1)   = 

INCARD(l^) 

10(2)   = 

TNCARD(20) 

C 
6000 

RETURN 

CONTINUE 

DO   70 0  0 

T    =    lr    '1 

INOUT(I) 

=   TNCARDU 

+  20) 

70  0  0 

CONTINUE 

10(1)   = 

INCARD(29) 

10(2)   = 

INCARD(30) 

INDEXR   _ 

0 

RETURN 

END 

c 

r 
C 

DOUBLE  PRECISION  FUNCTION   DROUMD 

IMPLICIT 

INTEGER   ( 

T   -   iJ   ) 

DOUBLE   PRECISION   VAL 

'■F»   FACTOR, 

1 

TEXAS 
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BLOCK 

DATA 

R800n 

c 

98100 

c 

tMPLICIT   INTEGER   (   T   -   '  i   ) 

98200 

c 

°830n 

c 

COMMON   /   DATA 

/   KTBLU2).   MESAG("0)» 

LAPEL(5.  50), 

Q8U00 

c 

1 

TABLE (2.  50) # 

NLSAVEf   NUMLAB.   ISTOPC 

1.)  ,   IRLANK 

Q850H 

c 

P8P.00 

COMMON   /   DATA 

/   KTRL.U2).   MESAG(40) 

Q8700 

COMMON   /   DATA 

/   LAB9H25).   LAB0?(2S) 

»   LAB03(?5)»   LAR.O" 

(25)  . 

°8800 

1 

LAB05(25).   LAPQ6(25) 

.   LAP07C25).   LAPOP 

(25)  . 

aqnon 

2 

LAR09(25).   LABio(25) 

oQpon 

COMMON   /   DATA 

/   TRLK25).   TBL2(2C)» 

TRL3(?5).   Tn»L4(?5) 

°9lOO 

COMMON   /   DATA 

/   NLSAVEf   NUMLAB.   TST0TM4).   IRLANK 

Q9200 

c 

og^pq 

c 

KTBLU.2)   Aj 

QQUOH 

c 

CHARACTER  TABLE  USED  I;|  DECOnE  AND  ENCODE  SUBROUTINES  Ar: 

ELL 

QQSOn 

c 

AS 

INITIALIZATION  0^  ARRAYS 

og^pn 

c 

og70n 

DATA 

KT6L(0D  . 

KTBL(0?)r   KTBL(03).   KTRL(OU).   KTBL(05)» 

og^nn 

1 

KTBL(06) . 

KTBL(07)»   KTBL(OR).   KTnl.(0°)t   *TBLU.O)» 

oqorip 

2 

KTBL(ll) . 

KTBL (12).   KTBL (13).   KT: 

U.(l").   KTBL (15). 

lnOOO^ 

3 

KTBL (16) . 

KTBL  (17).   KTBL  ( IB)  .   KT' 

H.  (1°).   KTBL (20). 

looinn 

<+ 

KTBL (21) 

/ 

10020O 

5 

1Ho»   1M1»   1^2.   1M3f 

1H4.   IMS.   'H6. 

ln030n 

6 

1H7.   1H8.   1^9,   1W+, 

1H-.   1H.»   1H  , 

l^Ouon 

7 

1HA.   lHBf   INC.   INDr 

THE,   lMR.   1HG   / 

lnn^on 

c 

1  npisoo 

DATA 

KTBL (22) » 

KTBL(°3).   KTBL (24),   KT' 

,L(2c:).   KJBL  (26). 

1H0700 

1 

KTBL(27) . 

KTBL(?ft)»   KTPL(?0).   KT°L(3n)r   KTBL(31)»' 

in08on 

2 

KTBL (32) . 

KTBL (33).   KTBL  (34-).   KT^ 

U.(3*0»   KTBL (36). 

lnogo^ 

3 

KTBL (37) . 

KTDL("*8).   KTBL(39).   KTRLC+n).   KTBL(Ul), 

loinnn 

4 

KTBL  (<+2) 

/ 

loiion 

5 

1HH.   1HI.   1MJ.   1MK. 

1HL.   1H»»   1HN, 

10120H 

6 

1H0»   IMP.   1MQ»   l'IR. 

IMS.   1HT»   1MU. 

] ni 300 

7 

1HV.   1HW.   1L'X.   1MY. 

1HZ.   1!'*.   \Y\)        / 

lnluon 

c 

101^00 

c 

MESAG(UO) 

lnlfiOi 

c 

ERROR  MESSAGES  TO  BE  PRINTED  OUT  v.rju    f 

^AD  INPUT  CA^nq 

1 nl70n 

c 

lOlftOO 

DATA 

MESAGvOD  . 

MESAG(02).   MESAG(0"*)» 

MESA6(04)  .   VESAGLf 

5)  . 

import 

1 

MESAG(,  6)  . 

MESA6(07)»   MrsAG(0D). 

MES'NGfOP)  .   "ESA^(  10). 

10200^ 

2 

MESAGCL1  )  . 

MESAG(12).   MESAG(l^). 

MESAG(  1  'i  )  .   »«FSAG(  1 

5)  . 

in210n 

3 

MESAG(15) . 

MESAG(17).   M^SAGdfl). 

MES-"<G  ( 1  °)  .   "*FSA<"  (  " 

n)   / 

1O220O 

'+ 

UHIl 

LE.  4HGAL 

.  4HIDEN*  4HTTFT.  4  HEP 

UH       .  t>H       .   HM 

» 

ln230n 

5 

UHIl  LF.  UHGAL 

»  4HCHAR,  UHACTF.  '+HR  IN. 

ai-t  njM,  /.iHE"'?!.  ''H<" 

"'       t 

in2U0n 

6 

4HMORF.  4H  THA 

.  4HN  ^0,  UHO  UN   / 

102SOO 

c 

1n2f>00 

r 

^ATA 

MESAG(2D  f 

MESAG(22).   MESAG(.23)» 

MES'v^(2t» )  .   ""ES^^f  ' 

5)  . 

102700 

1 

MESAG(26) . 

MESAG(27)»   MESAG(2°). 

'TS"G(2^)»   v'ES'.GJ? 

0)  . 

102«00 

2 

MESAG(31 ) . 

MESAG(32).   MFSAG(33)» 

MFSAG(34).   «1ESA'=(^C;)  . 

102000 

3 

MESA 6(3*1)  . 

MESAG(37).   MESA6(3°.)» 

'iFSAGMQ).   "rS/":(i 

0)   / 

10300O 

4 

U-HI^NE. 

UN  PAT,  'iHA  CA.  UHrnS  . 

1031 oo 

5 

4H 

.  UH 

,  UH              r     U|-|      »  UH      . 

'H-'     .  UH     '  UH 

. 

1 o3?0o 

6 

4H 

.  UH 

.  4H      »  <+H      »  UH      ► 

an     .  i»h     .  UH 

/ 

10  330  0 
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c 

n^uno 

c 

LABEL(5r  100)   4A4»   T10 

.03^00 

c 

THIS  ARRAY  STORES 

THE  FOLLOWING  - 

-O3A0O 

c 

LABEL(l)   INPUT  IDENTIFIER   (FIRST  4  CHARACTERS) 

IH370O 

c 

LAREL(2)   INPUT  IDENTIFIER    (LAST  4  C 

1ARACTFRS) 

n  ?  n  o  o 

c 

LAREU3)   OUTPUT  IDENTIFIER   (FIRST  n 

"MARACTFl1^) 

03000 

c 

LABEL (4)   OUTPUT  IDENTIFIER    (LAST  U 

-HAR^CTFPS) 

nq.non 

c 

LABEL(5)   ROUND  TECHNIQUE 

CODE 

nu]  no 

c 

-1   3  SIGNIFICANT  DIGITS  ONLY 

[ntipno 

c 

0   ROUND  TO  NEAREST  \ 

VHOLE  MUMPER 

LnuTioo 

c 

1  TO  5   ROUND  TO  NEAREST  ' 

).1»  0.01»  FTC. 

nuuoo 

c 

n  u  5  o  o 

DATA   LA601(01)» 

LAR0K02)  » 

LARP1 (0?) t 

LAB01 (OU) f 

I..AB01  (05)  f     1 

n  u  a  o  o 

1 

LAB0K06)  # 

LAB0K07)  » 

LABOl(nP)  , 

I  AROl (0^^  r 

LABOl  (10)  t             1 

1014700 

2 

LABOKll)  r 

LAB01 (12) » 

LAB01 (13) f 

LAR01  (U.  )  f 

LABni (15) f     5 

n  4  p  n  o 

3 

LAB0K16)  t 

LAR0K17)  f 

LAB01 (1°). 

LARni (I"), 

l_  A  B  0 1  ( ?  0 )  t     ] 

niiono 

4 

LAB0K21)  » 

LAB0K22)  » 

LAB0K23)  » 

LARnj  (?/+)  , 

1  AH0  1 (?5)    /    1 

n5non 

5 

4H     f   4H     i 

4HBLAMf 

4HK    »    Of 

L05i no 

6 

4HBAR  t       4H     t 

4HPSI  f 

UH     .    n» 

n5?pn 

7 

4HMRARf   4H     i 

4HPSI  » 

4H      r   -1» 

0530^ 

a 

4HMPA  •   4H 

4HPSI  » 

4H      »    Of 

n  5  u  n  n 

9 

4HDEG  »   4HC    i 

4HDEG  t 

4HF    ,     0 

/ 

i  0S?0° 

c 

PSAHO 

DATA   LAB02(01)» 

LARP2(02) » 

LAB02(03) t 

LA80?(0U) » 

I  AR.0?(n5)  ,     3 

OS7on 

1 

LAB02(06) » 

LABO?(07) r 

LAB0?(0n) » 

LAR02(0°) r 

1  AR0?( in) ,     i 

n  R  q  p  o 

2 

LAB02(11) » 

LABP?(12)  f 

LABno(i^) , 

LARP?(  I'D  r 

i,ARn"(i5)t     .1 

rM=,op  o 

3 

LAB02(16) , 

LAR02U7) » 

LAB02(ia) , 

LAP0?(  ).q.)  f 

1.  ABf1?(?0)  f     1 

n  6  n  o  o 

4 

LAB02(21) f 

LAR02(?2) » 

LAf30^(2^)  f 

LARn?.(2U)  f 

i  a  *  o  p  ( r  s )   /  1 

.  061  no 

5 

4HDEG  »   4HT0L 

.   4H0EG  » 

4HT0L  f    n, 

106200 

6 

4HN    f       4H 

4HLRF  » 

UH     »   -If 

L0630O 

7 

'4HKN  t       4H 

»   4HLBF  f 

UH     »   -1» 

0640  n 

8 

4HNN!   •   4H 

.   4HLR  F» 

UHT    f   -l» 

ifi^Dn 

9 

4HGM   »   4H 

.   uH07_  If 

"HNCH  ,     1 

/ 

1.06600 

c 

,n670n 

DATA   LAB03(01)» 

LAROMC?)  t 

LAriOMO^)  t 

LAB03(0M ) f 

|_ABP3(  05)  f     3 

L n  6  0  0  o 

1 

LABn3(0fi) » 

LAB03(07) » 

I  A803(0<')  » 

LARn3 ( 0?) » 

I  /\n,n-»(in).      1 

I  n6°on 

2 

LAB03Q1)  » 

LAR03(12) , 

LABn3(13) » 

(..AB03(  1U)  f 

LAB0^(1C;)» 

r>700O 

3 

LAB03U6) f 

LAB03(17) t 

LALin^(i^)  f 

LAB07 ( lc) , 

LARn3  CO)  f 

n 7  i  no 

4 

LAB03(21) t 

LAB03(22) » 

LAR03(23) t 

LARfT  (?'i )  f 

l._  A  P  n  3  ( *>  5 )   / 

n  7  p  0  n 

5 

4HN/MM»   4H 

.   4HLB/T» 

UHNCH  f   -1» 

07^00 

6 

4HUM   »   4H 

•   4HMILS» 

UH     »    l» 

i  0  7400 

7 

4HCM   ,   4H 

,        4HTNCHf 

UH     f   -l» 

o7';no 

8 

4HDM  t       4H 

>        IMTMCHr 

UH     f   -If 

07600 

9 

4HM    »   4H 

.   4HFT   f 

UH     f   -1 

/ 

.0770" 

c 

o  7  2  o  o 

DATA   LAB04(01)f 

LAB04(0?) » 

LAB0U(03) t 

!  ABOU(0'J )  » 

I  APnu (os) f 

n7°  no 

1 

LAB04(06)  t 

LAR0U(07) , 

LAR04 (0^) t 

LABOUtOP) » 

I  ARO'i  (  I  0)  f 

L opopo 

2 

LA804(11) f 

LAR04<12)  t 

L/UiQ4(  13)  f 

LAROU(  1':  )  t 

!..AR0t;  (1R), 

n  p  1  r> n 

3 

LAB04(16) » 

l.AR04(17) t 

LAliOU(  1Q)  , 

LAB.OI  (  1°>  r 

1  .  a  H  0  (j  (  o  0  )  » 

n  q  p  p  p 

4 

LAB04(2l) » 

LA^n4(2?)  t 

LABOU(P^) f 

LABHU (2^1 , 

(  A  B  0  U  (  ?  5 )   ' 

0  Q--^  (-|  n 

5 

4HKM   »   4H 

,       4HMILE* 

UH     f     1  f 

0  0(1  ,)o 

6 

4HMM2  »   4H 

►   4HIN2  » 

UH      f   -1 » 

O .« -t  f  i  p 

7 

4HC^2  t       4H 

»   4HIN2  » 

UH      f   -1 » 

OC',01 

8 

4HM2   »   4H 

,        4HYD2  » 

UH      f     1  » 

OQ-7|:0 
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UHCM3 


UH 


4HTM3     t       UH 


-I 


DATA 

LAB05C01) f 

LAR05(02) r 

L«Rns 

n-o  t 

Lanne;  (  O/i  )  , 

L  A  P,n  5  ( o  R )  , 

1 

LAB05(06) t 

LABr»S(07)  » 

L/^BOS 

01)  t 

I  ABO^ ( 0°) » 

LABfi^d  1)  » 

2 

LAB05(U)  f 

LAnns(i2) » 

LABOS 

1^) , 

LAnnsd'i ) » 

1  ABO^d?)  » 

3 

LAB05(16) » 

LAB05<17) » 

L<\nns 

i«)  > 

LABOBdal  t 

!.ALanK(?n)  » 

4 

LAB05(21) f 

LAR05(22) » 

LflBOS 

?■*)* 

LARnc^(2'0  » 

[Minxes)   / 

5 

UHC 

v!3  »   4HLIQ 

4H0Z  L» 

1HTO  t 

-1 » 

6 

UHDL   *   UH     . 

uhoz  L» 

«4HTQ   1 

1 . 

7 

UHLITR,   UHC 

4HOT   > 

4H     1 

1. 

8 

UHM3   »   4H 

4HYD3  » 

UH     , 

-1 1 

9 

4HG 

>       4H 

UHOZ   » 

<+H     1 

-1 

/ 

DATA 

LAB06(01) r 

LAR06(G2) » 

LftBO^ 

p-*) » 

LABOfiCC'J )  » 

|  HOflfifi^Jl 

1 

LAB06(06) » 

LApn^,(.]7)  , 

LAQdf. 

'no), 

LARn^fno) , 

i.ARnp,(  10), 

2 

LAB06(11) f 

LARflMl?)  » 

LABOf> 

:  1 3 ) » 

LABrf  (l«i  )  , 

L  A  p  n  6  ( 1 S )  » 

3 

LA80f>(16)  » 

LAB05d7)  » 

LftBO^i 

ri^) » 

LAB0^(1°) ' 

LABOf.(?n)  » 

4 

LA606(21) t 

LAR06(22> t 

LABn^, 

(2?)  » 

LABnM2U  )  t 

I  ABOf  (  ?ci)   / 

5 

4HHG   f   UH 

,       1+M07   , 

UH 

,    1» 

6 

UHKG   »   UH 

4HLR   t 

UH     1 

1» 

7 

4HMG   »   4H 

<       4HLB   f 

UH     1 

-1  » 

8 

4HKG/M*   4H2 

r   4HOZ/Y* 

UH^^ 

.     Or 

9 

4HG/CM»   4H3 

-   4HG/C"# 

UH"^ 

,    0 

/ 

DATA 

LABn7(01) » 

LAB07(02) » 

LAR07 

f0^)  t 

LAB°7(0'< )  t 

LAPO^COS) , 

1 

LAB07(0f>)  » 

LAB07(07) > 

L^RC7 

inn)  , 

LAB07(ri9)  » 

I.ARr-(  1  0)  , 

2 

LAB07(11) » 

LAB07(12) r 

LAB07 

[13), 

!.ARn7(l(4  )  , 

1  AR^7( 1 s) , 

3 

LAB07(16) » 

LAR07(17) » 

LAB07 

rl")  t 

!  AR07dQ)  r 

LAB07fn)  r 

4 

LA807(2l) » 

LARD7(22) » 

LAB07 

'2^)» 

LABH7(2U) , 

LABnT{?5)   / 

5 

4HK 

S/M#   4H3 

,   UHLR/Ff 

UHT3 

-1. » 

6 

4HST0P,   4H 

,        UH      » 

UH 

Of 

7 

4H 

r   4H 

»   UH     » 

UH 

0» 

B 

4H 

»   4H 

.   UH     , 

UH 

»    n, 

9 

4H 

»   4H 

»   4H     » 

UH 

.    n 

/ 

DATA 

LABn8(0l) t 

LAB08(02) » 

LABO« 

03)  » 

LABOPCQU) r 

LARDP (05) t 

1 

LAR08(06) f 

LAB08(07) » 

LABPfl 

;  0  q )  t 

LAP08(0°) r 

l  Aprso  ( 1  n)  , 

2 

LABOSdl) t 

LABna(12) » 

LABOn 

13)  t 

LAPPA  (It!)  r 

1  ABQP( 15) » 

3 

LAB08(16) t 

LABD8(17) , 

LABO=( 

fin)  , 

L ARon( \o)  t 

LABPO(20) t 

4 

LAB08(21) f 

LARfl=>(22)  » 

LABCn 

2"M  » 

LAROfl(2U) # 

!.ABC«(?5)   / 

5 

4H 

»  4h 

4H      r 

UH     . 

n, 

6 

4H 

f   4H 

»   4H     f 

UH     1 

0» 

7 

4H 

»   UH 

4H         , 

14H      , 

n» 

8 

4H 

t       UH 

»   UH     » 

UH     , 

n, 

9 

4H 

»   UH 

.   UH     » 

"H     i 

0 

/ 

DATA 

LAB09C01) r 

LA10Q(02) f 

LAB09 

rn^) , 

!..AB09(04>» 

I  ARno(n.5)  , 

1 

LAB09(0M  r 

LAPD0(U7) , 

LAB09 

[  0  ° ) » 

LAB09(0<5)  » 

LAROO(in) » 

2 

LAB09(11) t 

LABn°(12) t 

LABOO 

[  1 .3  )  » 

1  /\poq(  la)  , 

LAPn^( 15) f 

3 

LAB09(16) t 

LAB09(17) , 

LARH9 

;  1 8 ) » 

LARnf  d9)  , 

I  ABn°(2H) f 

4 

LAB09(2l) t 

LAB0O(2?) , 

LABOQ 

[23)  » 

LABn9(2U) t 

LAP0n(25)   / 

5 

4H 

t       UH 

,       '4H     f 

UH 

,   n, 

6 

UH 

»   4H 

>       W            1 

UH     . 

n» 

7 

4H 

»   4H 

>       HH     f 

UH     1 

n» 
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a 

4H     ,   4H 

r   4"      r 

4H      r 

Or 

.1.420  0 

9 

4H     ,   4H 

r   4H     r 

MH      r 

0   / 

14300 
14U0O 

DATA   LAB10(01)» 

LAB10(02) . 

LABIP(03).   LAB10(04),   LAB1.0(f)5)r 

.14500 

1 

LAB10C06) , 

LAM  1.0  (07)  , 

L  A  B 1 0  ( 0 ' 

Or   !  AB10(0 

0)  ,       !_ fl p  1  n 

(10),      .1 

14f,on 

2 

LAL)lO(ll) , 

LAP10(1?) 1 

LAB10(13)r   LABIO(IH),   LAB10 

(15) ,     1 

,14700 

3 

LAB10(16) r 

LAR10(17) 1 

LAB10(l^)r   LABIOd 

P),   LAR10 

CO),     3 

1.4A0O 

4 

LAB10(21)» 

LAB10(22) 1 

LABI  0(2" 

Or   LABI  0  (24)  r   LABI" 

(orO   /   1 

.14900 

5 

4H     #   4H 

r    4H      r 

4H      r 

Or 

.15000 

6 

4h    p     mi 

r   4H     r 

4H     , 

Or 

.15100 

7 

4H     r   4H 

,   4H     » 

4H      r 

Or 

.15200 

a 

4H     r   4H 

,   4H     » 

UH      r 

Or 

.1  5300 

9 

4H     r   4H 

,   4'-l     , 

'*H      r 

0   / 

15400 
.1550" 

TABLE(2»  50)   - 

ARRAY  FOP  CONVERSION 

FACTOPS  AMD 

ROUND INR  1 

imtts    : 

.15600 

WORD  1   -   CONVERSION  FACTOR   (  5  SIGNIFICANT 

FTGURrS  ) 

.15700 

WORD  2   -   ROUNDING  UNIT 

(  5  SIGN 

rFICANT  FIGURES  ) 

.  1 5R0° 

L15P0O 

DATA   TBLl(01)r 

T^LI  (02)  , 

TPL1  (03)  , 

TP.L1  (O'J  )  r 

TRL1 (05) , 

116000 

1 

TRLK06)  r 

TRL1 (07) , 

TRLl(Oa)  . 

TBL1  (no)  , 

TBL1  (1.0)  r 

M61  00 

2 

TBLK11)  r 

TBLK12)  » 

TPL1  (1.3)  r 

T  (|_1  (lii)t 

TRL1 (15) r 

162QO 

3 

TBL1 (16) r 

TBLK17)  , 

THL1 (1*)  r 

ThJL1  (ln)  r 

TPL1 (20) r 

116300 

4 

TBLK21)  r 

TPL1 (22) r 

TRL1. (23) r 

Tpl.l  (2H)  r 

TBL1(25) 

/      ] 

1 1 64 OO 

5 

o.Or     o.Or 

14.504. 

l.Or 

0.01£*5"4r 

L1650O 

6 

0.0»      145. 

T4r   l.0» 

-1  .A, 

1  .Or 

1  6^00 

7 

1.8r        l.Or 

0.22481 

r  O.Or 

224. 81r 

L16700 

8 

O.Or      0.73756r  O.Or 

1.3*87 r 

O.lr 

16^00 

9 

s.7ioi»  o.Or 

0.0  3P37'  O.lr 

0.3°37   / 

116^00 

.17000 

DATA   TPL2(01), 

TPL2(0?) r 

TPL?(03) r 

T3!..2(04)  r 

TPL2f 05) r 

1 1  7 1 0  0 

1 

TBL2(06) r 

TPL2(07) , 

TPL2(0«) t 

T'L2(0°)  r 

TPL',(10)  r 

117200 

2 

TPL2Q1) r 

TBL2(12)  r 

T"L2(13) r 

TBL2(  l'l  )  r 

TRL°(15) ' 

.17"<0o 

3 

TBL2(16) r 

TBL2(17) , 

TRL2UB) r 

TiH.?(  1°)  r 

TBL2CP0) , 

L1740O 

1 

TBL2(21) r 

TRL2(22) r 

TRL2(2'0 » 

TB(_?(2"  )  r 

TPL'1  (25) 

/                1 

117500 

5 

O.o,      3.937,    n.p, 

3.2808' 

O.Or 

L17600 

6 

0.62137r  O.lr 

0.001 55 r  0.0. 

0.  l^Sr 

1 17700 

7 

o.Or     i.iPen»  0. 1 1 

0.06102 

'  r  0  •  0  t 

17A0O 

8 

0.03381r  O.Or 

3.381 ' 

O.lr 

1  .nc;87r 

.1  7QP0 

9 

O.lr      1.3080'   n.o» 

0.0"^5?7'4r0.n   / 

1 1 8000 

Li  81 00 

DATA   TBL3(01>r 

TBL3(02) , 

TPL3(03)  r 

Tr',!_3(04)  r 

"TRLMOS)  , 

M820O 

1 

TRL3(06) r 

TPL3(07) r 

TPL"^(08)  . 

T  ,1  MO"), 

TRL"1  (10)  r 

L1830O 

2 

TBL3(11) r 

TPL3M2)  r 

TPL3(13) r 

TRL3(lf ) r 

TBL?(15) , 

184CO 

3 

TBL4(16) r 

TPL4H7) » 

TBLM 18)  r 

"T  L'i(  1°)  r 

TBL4('50)  , 

18S00 

4 

TBL3(21) » 

TRL3(22) r 

TPL"<(2^)  r 

TBL3(24) r 

"rnL"^(25) 

/ 

I1P60O 

5 

3.5274r   O.lr 

?.2046r   O.lr 

22  0  0 ,6r 

11870O 

6 

0.n»      2Q.494r   t.0» 

l.Or 

l.o, 

liaaoo 

7 

0. 062428 r O.Or 

O.Or 

O.Or 

O.Or 

L18900 

8 

O.Or        O.Or 

O.Or 

O.Or 

O.Or 

1 190no 

g 

O.Or      O.Or 

O.Or 

O.Or 

0.0    / 

L 1  Q  T  0  0 
L19200 

DATA   TRl.4(01), 

T8L4(02)  , 

rBL4(03) . 

Tl  "  (0'4 )  » 

TRL'i(n5>  , 

I  1 Q300 

1 

TBL4(06) r 

TBL'l(07)  r 

TPL'»  (OP)  , 

T  !.'!  (0°)  r 

Tf1L'J  (10)  , 

L19400 

2 

TPL4(11)  t 

TBL4  (  1  2  )  r 

TPL'!  (  1  3)  r 

Ti»( in )  , 

TBL4(15) , 

11950  0 
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c 
c 
c 

c 
c 

3 

5  0. 

6  0. 

7  0. 

8  0. 

9  0. 

TRL3(16)  t 
TRLU(21) p 

n»     o.o» 

Or       0.0» 

n»     o.o» 
n»     o.o» 
n»      0.0» 

TBL3M7) , 

o.n, 
n.o» 
o.n, 

0.0» 
0.0» 
0.0» 

p.q» 

0.0» 

T.  |.T(  1^)  , 
T"t.;!.t(2f  ) » 

n.  i » 
0.1   / 

TRL3(.°0.) 
TRLM  ?5) 

DATA 

NLSrVE   / 

32 

/ 

DATA 

NUMLAB   / 

72 

/ 

DATA 
1 

ISTOP(l) » 
1H$,   1HF» 

ISTOP(2) » 
1H0»   IMP 

i stop (3)  , 

/ 

ISTCPU) 

/ 

DATA 

IBLAf'K   / 

4H 

/ 

END 

i1.9^nn 
119700 

j  1  q.qpo 
119OQ0 

1  2  0  o  0  n 
l  ?  o  i  o  n 

] ?030n 

I2ouoo 
l?0Kon 

120700 
1 20f>nn 

]  2 1 0  o  o 
1 2 1 1 0  n 
12120^ 
1 Pl^O" 
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13. 

GRAM 

LITRE 

LITRE 

LITRE 

LITRE 

DEG  C 

DEG  TOL 

DEG  C 

LITRE 

LITRE 

LITRE 

LITRE 

LITRE 

LITRE 

LITRE 

GRAM 

LITRE 

LITRE 

LITRE 

STOP 

15 

1.0 

4.0 

2.0 

MPA 

100. 

0. 

DEG  C 

3. 

N/MM 

.35 

.621 

47.33 

65. 0 

1.54.0 

BAR 

.4 

LITRE 

.1 

KM 

.1 

DEG  C 

2. 

N  M 

2. 

<T,<\Mn|   f     j 


ML 


SAMPLE    ? 


0.013 


.5 


REF 

DEG 

TOL 

7.0 

DFG  TOL 

ML 

1.5 

ML 

ML 

ML 

DEG 

C 

DEG 

C 

DEG 

TOL 

DEG 

TOL 

DEG 

TOL 

ML 

ML 

KM 

KM 

KM 

20.00 


DE^    TO! 


l?170n 
121R0O 
1P190P 

1220P" 
l?2l  oo 
1 ?22CO 
lPSTSpr* 

i?2noo 
1 ?2^oo 

192700 
12PO00 

l?3pno 
1231 nn 
123200 
123^no 
l?340n 
]?350n 
12360" 
l'»37on 
l?3A0n 
l?3opo 
1  o'inpo 
124100 
] 24200 
1  ?4"<;po 
l?4.i|Oo 
124500 
124600 
124700 
1 9  40P0 
1 ?4opo 
1 ?5000 
lo5ion 
125200 
125300 
1254-00 
125S0O 
125600 
125700 
1  p  5  q  0  n 

l?5Q0n 
19*spoo 
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PART  3F1341      CHANGE   15 
MM         INCH  MM 


INCH 


MM 


INCH 


MM 


TMCH 


.0025 

.00010 

.76 

.030 

17.50 

.889 

38.10 

1.500 

.013 

.0005 

1.5 

.059 

18.0 

.709 

47.33 

1.^6* 

.05 

.002 

2. 

.079 

19.0 

.748 

50.0 

1  .  ^69 

.0505 

.00199 

3. 

.118 

19.8 

.780 

57.0 

?.?'+U 

.051 

.0020 

5.6 

.220 

20.83 

.»20 

77.0 

3.031 

.1 

.004 

6.35 

.250 

21.8 

.858 

85.0 

3.^46 

.35 

.014 

11.00 

.433 

22.0 

.866 

120.0 

s.03° 

.4 

.016 

14.25 

.561 

25.17 

.QOl 

15H.0 

*.  063 

.5 

.020 

16.0 

.630 

30.860 

1 .Pl^P 

.621 

.0244 

17.0 

.669 

32.0 

1.260 

PART  3F1341      CHANGE   15 
DIM        UNITS       DIM 


UNITS 


0  T  M 


UNITS 


n  T  r 


UNITS 


I2- 

BAR 

29. 

PSI 

in. 

N! 

o#  o^ 

LPr 

1000. 

MPA 

145000. 

PS  I 

IP. 35 

N/mm 

1  10. 

LB/INCH 

-40.0 

DEG 

C 

-40. 

DEG 

F 

2.0 

CM 

1.2 

Mil  E 

; -31.5 

DEG 

C 

-25. 

DEG 

F 

2. 

KM 

!  .? 

"he 

20. 

DEG 

C 

68. 

DEG 

F 

3.0 

k"|W 

r.° 

Ml'  F 

100. 

DEG 

C 

212. 

DEG 

F 

8.0 

KM 

5.0 

Ml!  E 

2.0 

DEG 

TOL 

4. 

DEG 

TOL. 

11.25 

KM 

7.0 

MILE 

4.0 

DEG 

TOL 

7. 

DEG 

TOL 

22.55 

KM 

14.0 

Mil  E 

5. 

DEG 

TOL 

9. 

DEG 

TOL 

4. 

LITQF 

4.2 

OT 

7.0 

DEG 

TOL 

13. 

DEG 

TOL 

50. 

KG 

1  10. 

LB 

20.00 

DEG 

TOL 

36. 

DEG 

TOL 
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METRIC  -  U.S.  CUSTOMARY  CONVERSION  TABLE 


NU»<RE">  OF 

PART 

OUTPUT  COLUMNS 

NUMBER 

CHANGE 

ADDITIONS 

MM             OTHFR 

9S31B4 

01 

1.0 

3.0           2.0 

IIUMrtrr)     OF 

APDFD 

TrFMTTFIFDS   "LOT 
2.0  1  .  p 


SAMPLE 


NUMBER  OF  ENTRIES  TN  CONVERSION  TABLE  = 


IDENTIFIER 

IDENTIFIER 

ROUND 

CONVERcIO.\i 

"Ot'MrTMG 

IK 

OUT 

TECHNIQUE 

FACTOR 

U"IT 

BAR 

PSI 

0 

14.501*00 

1.00000 

MRAR 

PS  I 

-1 

.01450 

.ocooo 

MPA 

PSI 

0 

145.04000 

1 .00000 

DEG  C 

DEG  F 

0 

-I.roopo 

l. ooooo 

DFG  TOL 

DEG  TOL 

0 

l.flOOOO 

1 .00"0O 

N 

LBF 

-1 

,2?4<U 

.00^00 

KM 

t  BF 

-1 

224.<U000 

.ooooo 

NM 

LB  FT 

-1 

.7-»756 

.00000 

GM 

OZ  INCH 

1.3<*B70 

.10000 

N/MM 

LB/INCH 

-1 

5.71010 

.00^00 

UM 

MILS 

.0^37 

.10^00 

CM 

INCH 

-1 

,3T*70 

.0000" 

DM 

INCH 

-1 

3.9^790 

.00009 

M 

FT 

-1 

3.?nnoo 

.00000 

KM 

MILE 

.62137 

.10000 

MM2 

IN2 

-1 

.00155 

.ooooo 

CM2 

IN? 

-1 

.1^500 

."0000 

M2 

Y02 

1.1^600 

.10000 

Cv,3 

IN3 

-1 

.06102 

.ooooo 

CM3  LIQ 

OZ  LIQ 

-1 

.0  33*1 

.00000 

DL 

■)Z  LIQ 

3.3B100 

.10000 

LITRE 

JT 

1.05670 

.10^00 

M.^ 

YD3 

-1 

1.30300 

.Oonoo 

G 

OZ 

-1 

.0^527 

•ooino 

HG 

OZ 

3.52740 

•1OP00 

KG 

L3 

2.2O460 

.10000 

MG 

LB 

-1 

2204.60001 

.00^00 

KG/M2 

0Z/YD2 

PQ.4P400 

1.00000 

G/CM3 

G/CM3 

1.00000 

1 .00"00 

KG/M3 

L6/FT3 

-1 

.06243 

.00000 

METER 

INCH 

iQ.s^onu 

.  ICOO   **** 

DECA  M 

INCH 

3P3.7n00'i 

. 1 0n0O   ♦*** 

rl'IS  T5  A  Tf"V"OP."r>Y  rfj-ov  **t-* 
rHTc.  TS  A  TFM^ORA^Y  EMTPY  *.**  + 


LISTED  BELOW  ARE  THE  INPUT  DftTA  CAPD(S)  WlTH  SOME  TYPE  *F  FPRORfSJ, 
DIMENSION    IDENTIFIER     ERROR  TYPE 


12.35  GAGE 

75.0  REF 

35.  ML 

-100.22+ 

10.  N  M 


ILLEGAL  IDENTIFI^P 

TLLEGAL  IDENTIFIER 

ILLEGAL  IDENTIFI"7" 

TLLEGAL  CHARACTER  IN  PIMENSIO'l 

TLLEGAL  TOENTIFI^P 


iOO 


PART  9S31A4      CHANGE   01 
MM         INCH  MM 


INCH 


MM 


T"'<~H 


.nl3 

.05 

.0505 

.051 

.5 

.76 

1.5 

2.25 

4.68 

5.6 

6.35 

8.9 

11.00 

12. 

13.1 

i  14.25 
15.22 
16.0 
17.0 


.0005 

.002 

.00199 

.0020 

.020 

.030 
.059 
.089 
.184 
.220 

.250 
.350 
.433 
.472 
.516 

.561 
.599 
.630 
.669 


17.50 

.6R9 

18. n 

.709 

19.0 

.748 

19.8 

.780 

20.83 

.820 

21.8 

.8^8 

22.0 

.866 

23.35 

.919 

25.17 

.991 

27.691 

1.090? 

29.9 

1.177 

30.860 

1.2150 

31.0 

1.220 

32.0 

1  .260 

36.0 

1.417 

38.10 

1.500 

40.15 

1.581 

44.44 

1.750 

50.0 

1.969 

52.2 

2.055 

54.7*5 

2.15c~' 

57.0 

?,2£>U 

69. 7S 

2.746 

81.15 

*.19* 

85. 6C 

3.37? 

123. 

't.843 

12^.5 

4,,  86? 

128.0 

5.03° 

40*. 0 

l^.git^ 

1000.00 

^o,?7n 

1100.0 

43.307 

1200. 

U7.2'lU 

1300. 

5.1  .l"1 

1400. 

55. IIP 

1600. 

5?.no-> 

1700. 

6f>.9?o 

1800. 

7n.8^f 

PART  9S318U      CHANGE!   01 
DIM        UNITS       DIM 


UNITS 


,IM 


"MTTS 


DIM 


units 


2. 

RAR 

29. 

PS  I 

2. 

*M 

1.2 

MI!  F 

.01 

MPA 

1. 

PSI 

500.0 

r>L 

16^0. 

07.    LIQ 

20.0 

DEG  C 

68. 

DEG  F 

4. 

LITRF 

4.? 

OT 

10. 

N 

2.25 

LPF 

10.0 

R 

.353 

OZ 

19.35 

N/MM 

110. 

LR/INCH 

400.0 

HG 

1410. 

07 

135.44 

N/MM 

773. 

LB/INCH 

5n. 

KG 

1  in. 

LR 

300.0 

CM 

118. 

INCH 

7.6 

"tyro 

?OQ. 

INCH 

200.0 

DM 

787. 

INCH 

7.0 

nfCfl  M 

2760. 

INCH 
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200.0        <7  M  ILLEGAL  TOFNTIFI^R 

A12.35B  ILLEGAL  CHARACTER  Tf.  HIMFNSION 
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PA*T  656878      CHANGE   0 

MM  INCH  MM  INCH 


.0001 

0 

.8 

.031 

.Il002 

.00001 

.9 

.0^5 

.0003 

.00001 

1.0 

.039 

.0001 

.00002 

1.5 

.0^9 

.0  005 

.00002 

9.4Q 

.370 

.U006 

.00002 

12.5 

.492 

.0  007 

.00003 

18. n 

.709 

.0008 

.00003 

19.0 

.7'-i3 

.0009 

.00001 

23.6 

.9?9 

.001 

0 

28.0 

1.102 

.uOlO 

.00004 

34.0 

1.331 

.002 

.0001 

37.7 

1  .481 

.003 

.0001 

41.2 

1  .622 

.0  01 

.0002 

42. 5 

1.673 

.005 

.0002 

17.0 

1  .«50 

.006 

.0002 

56.7 

?.23-> 

.007 

.0003 

6b. 0 

2. ^98 

.008 

.0003 

70.0 

2.756 

.009 

.0004 

81.0 

3.18« 

.010 

.0004 

90.  n 

3.543 

.01 

n 

110. p 

*.512 

.02 

.001 

160.0 

6.^99 

.03 

.001 

165.0 

6.U96 

.04 

.002 

220.0 

8.661 

.05 

.002 

259.0 

10.197 

.06 

.002 

265.0 

10.433 

.07 

.003 

325.0 

12.795 

.08 

.003 

701.0 

27.51R 

.09 

.001 

850.001 

33.4616 

.10 

.004 

850.002 

33.1616 

.1 

.004 

850. 003 

33.1617 

.2 

.008 

850.004 

33.1617 

.3 

.012 

850.005 

33.161R 

.1 

.016 

850.0*6 

33.1618 

.5 

.020 

850.007 

33.1618 

.6 

.024 

860.008 

33.1619 

.7 

.028 

850.009 

33.1619 
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PART  6S6870      CHANGE   0 
DIM        UNITS       DIM 


UNITS 


in. 5 

BAR 

152. 

PSI 

.125 

MPA 

18. 

PSI 

0 

DEG  C 

32. 

DEG  F 

5.0 

DEG  TOL 

9. 

DEG  TOL 

100.0 

M 

22.5 

LRF 

55.55 

N/MM 

317. 

LR/INCH 

1000.00 

UM 

39. 4 

MILS 

10.50 

CM 

4.13 

INCH 

10.00 

DM 

39.4 

INCH 

100.0 

KM 

62.1 

MILF 

10000. 

MM2 

15.5 

IN2 

100.0 

CM2 

15.5 

I!\!2 

120. 

M2 

144. 

YD2 

100.0 

CM3 

6.10 

IM3 

545.0 

CM3  LIO 

18.4 

OZ.LIi 

25. 

DL 

84.5 

OZ  LIO 

100. 

LITRE 

106. 

QT 

100. 

M3 

131. 

YD3 

100. 

G 

3.53 

OZ 

10.05 

HG 

35.5 

OZ 

10.005 

KG 

22.1 

LB 

10. 

KG/M2 

295. 

OZ/YD? 

5.0 

G/CM3 

5. 

G/Q"3 

1000.0 

KG/M3 

62.4 

LR/FT3 

17.5 

MJ/KWH 

12400. 

BTU/HPHR 

75. 

MJ/KWH 

53000. 

BTU/HPHR 

.5 

KG/H 

l.nOO 

POUND/MR 

1.0 

KG/H 

2.25 

POUMD/HR 

17. 

KG/H 

37.5 

POUMD/HR 

25. 

KG/H 

55.0 

POUND/HP 
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PART  9S3144      CHANGE   1 
MM         INCH  MM 
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PART  6J3135      CHANGE   NR5 

MM  INCH 

198.431  7.8122 

1Q8.432  7.8123 

198.433  7.8123 

198.434  7.8124 

198.435  7.8124 

198.436  7.8124 

198.437  7.8125 

198.438  7.8125 

198.439  7.8126 

198.440  7.812b 

1984.31  78.122 

1984.32  78.123 

1994.33  78.123 

1984.34  78.124 

1984.35  78.124 

1984.36  78.124 

1984.37  78.125 

1984.38  78.125 
19P4.39  78.126 
1984.40  78.126 

19843.1  781.224 

19843.2  781.228 

19843.3  781.232 

19843.4  781.236 

19843.5  781.240 

19843.6  781.244 

19643.7  781.248 

19843.8  781.252 
19A43.9  781.256 
19344.0  781.260 
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DT  1        UNITS       DTM        UNITS 


7.61 

PAR 

110. 

PSI 

7t>4.1 

F^AR 

U  inn. 

PS  I 

764.2 

MBAR 

11.1 

PSI 

764.3 

MPA 

moon. 

PSI 

764.4 

OEG  C 

1410. 

DEG  F 

764.5 

DEG  TOL 

1380. 

DEG  TOL. 

764.6 

N 

172. 

LP.F 

764.7 

KN 

I72nnn. 

LPF 

7r>4.8 

MM 

564. 

LP  FT 

764.9 

Gm 

1060. 

OZ  INCH 

76b. 0 

N/MM 

437n. 

LR/TNCH 

764.21 

UM 

30.1 

MILS 

764.22 

CM 

301. 

INCH 

764.23 

n,vi 

3010. 

INCH 

764.24 

M 

2510. 

FT 

764.25 

KM 

475. 

MILE 

764.26 

MM2 

1.18 

IM2 

764.27 

CM2 

lift. 

IN2 

764.28 

M2 

914. 

YP2 

764.29 

CM3 

46.6 

IN3 

764.30 

CM3  LIO 

25.8 

OZ  110 

76.1 

OL 

257. 

OZ  LIO 

76.2 

LITRE 

80.5 

QT 

76.3 

M3 

99.8 

YD3 

76.4 

G 

2.69 

OZ 

76.5 

HG 

270. 

07 

76.1 

KG 

168. 

LP 

76 . 2 

UG 

16800P. 

LP 

76.3 

KG/M2 
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4.78 

LR/FT3 
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C  PROGRAM  GMMETR  CONVERTS  FROM  MILLIMETRES  TO  INCHES  -  JUNE  1  P7'i 

C  ROBERT  DAVIES 

C  ROOM  1-14  R.A.P. 

C  EXTENSION  5-2745 

C  GM  RESEARCH  LABORATORIES 

C  GM  TECHNICAL  CENTER 

C  WARRENr  MICHIGAN  48090 

C 

DIMENSION  AM (1000)  rL(130)  »L1  (BO)  »LL(M  4)  »MD(  1000)  »USC  (  1  000) 
DIMENSION  I3UF(?0) 
C  THE  TWO  PREVIOUS  LINES  CONTAIN  ALL  REFFRE^CES  TO  ARRAY  SI^S 
C  EXCEPT  FOR  SOME  FORMAT  STATEMENTS  AFTF*  STATE^NT  36. 
C 

C  AM  =  THE  METRIC  MEASUREMENT  IN  MILLIMETRES 
C  L   =  THE  INPUT  DATA»  HOLLFRITH 
C  LL  =  THE  OUTPUT  DATA,  HOLLERITH 

C  NO  =  THE  NUMBER  OF  DIGITS  TO  THE  RIGHT  OF  THE  DECIMAL  "OT^T 
C       IN  THE  US  CUSTOMARY  OUTPUT 
C  USC=  THE  US  CUSTOMARY  MEASUREMENT  IN  INCHES 
C 

DATA  LM»NH»NM/7t»l9»1000/ 

DATA   IBUF(1)»  IBUF(?)»  IRUF(3)»  IBUF(4)f  IBUF(5)r 
1       IBUF(6)»  IBUF(7)»  IRUF(8)»  IBi)F(9)»  IBUF(10)» 
1       IBUF(11)»IBUF(12) , IRUF(13) , IRUF(14) #TBUF(15) » 
1       IRUF(16) *IBUF(17) »IBUF(18) »IBUF(19) »TRUF(?0) 
1       /1H  »1H  »1H  »1H  »IH  »1H  »1H  t  IH  »IH  . 1H  » 
1        IH  »1H  »1H  »1H  »1H  rlH  »1H  » IH  »IH  »1H  / 

DATA  IBLANKf IPLUS»IC0MMA>IP0INT»I7ER0»TMIMFV 
11H  »1H+»1H» »1H. »1H0.1HP/ 
DATA  IREAD»IWRITE»TUNlT/5,5rl/ 
C 

C    THE  ABOVE  DATA  STATEMENT  SETS  THE  INPUT  UNIT  NUMBER*  TH^  OUTPUT 
C  UNIT  NUMBER  AND  THE  SCRATCH  UNIT  NUMBER. 
C 

LMl=LM+l 
ISW1=1 
C  ISW1  IS  A  SWITCH  THAT  IS  USED  TO  SUPPRESS  PRINTING  OUT  CERTAIN 
C  INSTRUCTIONS  UNLESS  ASKED  FOR  THE  FIRST  TTME  THROUGH. 
C 

WRITE(IWRITE»97) 
97  FORMAT(30H  ENTER  A  SINGLE  PLUS  SIGN*  +  »/9H  FOR  MOPE* 
140H  INFORMATION.  ELSE*  HIT  CARRIAGE  RETURN./) 
READ(IREAD»3)I 
IF(I.EQ.IPLUS)ISW1=0 
IF(ISW1.EO.O)WRITE(IWRITE»1) 
1  F0RMAT(49H  ENTER  THE  DRAWING  IDENTIFICATION  AND  THE  MAYIMU*'* 
121H  WIDTH  ON  THE  DRAWING/24H  FOR  THE  MILLIMETRE-INCH* 
148H  CONVERSION  TABLE  (IN  MILLIMETRES).   PUT  A  C0MMA/8H  BETWEEN* 
157H  THE  TWO  ENTRIES.   a  PAIR  OF  COLUMNS  IS  53. 3U  MTLLP'ETRFS* 
16H  WIDE./) 
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100  IF(ISWl.EQ.l)WRITE<IwRITE»52) 
C 

2  CONTINUE" 

C  RETURN  TO  STATEMENT  2  IF  THERE  IS  To  RF  MORE  THAN  CNF  TARI  F 
C  CALCULATED. 
C 

C  THE  VECTOR   LI   IS  TO  CONTAIN  THE  DRAWING  IDENTIFICATION  *nn 
C  MAXIMUM  TABLE  WIDTH  WITH  A  COMMA  IN  BETWEEN.   IN  ^PPfv    TD 
C  SEPARATE  THE  TW0»  THE  COMMA  IS  LOCATED  (B*   l.!l)   AFTro  JT 
C  TRAILING  BLANKS  ARE  DROPPFn  OFF. 
READ(IREAD»3) (LI ( I ) r 1=1 »LM) 

3  FORMAT (136A1) 
DO  4  I=1>LM 
J=LM1-I 

IF(LKJ)  .NE.IBLANK)GOTO  5 

4  CONTINUE 

5  CONTINUE 

DO  6  L11=1»J 

IF(LKLll)  .EQ.ICOMWA)GOTO  7 

6  CONTINUE 
STOP 

7  CONTINUE 
L11=L11+1 

C  CHECK  FOR  NONNUMERIC  CHARACTERS  AFTER  COM^A 
DO  70  I=L11>J 

IF(LKI)  .GT.ININE)  GO  TO  54 
IF(LKI)  .LT.IZERO)  GO  TO  54 

70  CONTINUE 

C  THE  MAXIMUM  WIDTH  OF  THE  PRINTOUT  IN  Mi[_LTMFTR^S  TS  IN  THF  VECTOR 

C  LI   FROM   Lll   TO   J   AS  HOLLERITH  CHARACTERS.   To  PFC^VER  TT 

C  AS  A  FLOATING  POINT  NUMBER*  IT  IS  WRITTEN  INTO  CHANNEL ■ IUNIT  AND 

C  READ  RACK  OUT.   EVENTUALLY  IT  IS  CONVERTED  INTO   TW»   THE 

C  NUMBER  OF  COLUMN  PAIRS.   EACH  COLUMN  PAIR  REQUIRES  21  FPAC^S  nr 

C  53.34  MILLIMETRES*  AND  THF^E  CAN  BE  NO  MORE  THAN  6  PATHS. 

IS=20-J 

DO  71  II=L11.J 

IJ=IS+II 

71  IBUF(IJ)=L1(II) 
WRITE  (IUNIT»72)  IBUF 

72  FORMAT(20A1 ) 
DO  73  II=L11»J 
IJ=IS+II 

73  IBUF(IJ)=IBLANK 
REWIND  IUNIT 
READ(IUNIT»76)W 

76  FORMAT(F20.0) 
REWIND  IUNIT 
Lll=Lll-2 
IW=INT(W/53.34) 
IW=MAX0(1»IW) 
IW=MIN0(6»IW) 
IF(ISWl.EO.0)WRITE(lWRITE»fi) 

8  F0RMAT(54H  ENTER  THE  MILLIMETRE  DIMENSIONS  ON  A  LINE  WtTH  CO:"MA< 
112H  IN  RETWEEN./42.H  THF  COMPUTER  WILL  KEEP  ASKING  FOR  ANOTHFp» 
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124H  LINE  OF  INPUT  UNTIL  YOU/31H  INDICATE  THAT  YOU  "AV^-  NO  ^OPF» 

135H  INPUT  BY  ENTERING  0.  (ZFRO)  AS  THF/13H  LA^T  NUMBER./ 

1<+3H  SHOW  THE  DECIMAL  POINT  EVEN  WITH  TNTE^RS./ 

157H  F3E  CAREFUL  IF  YOU  ENTER  A  DTMENSIOM  Lft^GEP  THAM   ?=<  000  , 

112H  MILLIMETRES/ 

15fiH  DO  NOT  ENTER  A  TOLERANCF  SMALLER  THAN   0.001   MILLTMETPE  / 

159H  A  DIMFMSION  CANNOT  EXCEED   P  000  "00   TIM^S  ITF  TOI.FRAHCF./) 

IF(ISW1.E0.1)WRITE(IWRITE.9) 
9  F0RMAT(53H  ENTFR  THE  mt|_LIMETPE  DIMFNFIO:.lF»  INDICATING  LAFT  0ME> 
114H  BY  0.  (ZERO) ./) 

Nl=l 
C 

10  CONTINUE 

C  RETURN  TO  STATEMENT  10  IF  MOPE  THAN  OME  LTME  tf  fgFrr>En  FO^  THr 
C  INPUT  DATA  FOR  ONE  TA^LE. 

READ(IREAP»3) (L( I ) » 1=1 »LM) 
C  kEAD  THE  INPUT  DATA  AS  HOLLERITH  CHARACTERS  V>n  T^FM  REJECT 
C  TRAILING  BLANKS. 
121  DO  11  I=1»LM 

J=LM1-I 

IF(L(J) .NE.IBLANK)GOTO  12 

11  CONTINUE 

12  CONTINUE 
C 

C  REJECT  A  TERMINAL  COMMA. 

M=0 

IF(L(J) .NE.ICOMMA)GOTO  13 

L( J)=TBLANK 

J=J-1 

IF(J.GT.l)  GO  TO  121 
C  ELIMINATE  LEAPING  COMMAS 

C  INSPECT  THE  INPUT  FOR  ILLEGAL  CHARACTF^s*  IM;  Fnr>En  PL^MKS  (REJECT 
C  THEM) r  CONSECUTIVE  DECIMAL  POINTS  WTTHOUT  A  CO^MA  PFTWrEN» 
C  AND  CONSECUTIVE  COMMAS  WITHOUT  NUMERICAL  CHARACTERS  BE^WEFM. 
C  FINALLY*  COUNT  THE  NUMBER  OF  DIGITS  ArTE^  T"F    nFCT,"AL  r>OTMT. 

13  CONTINUE 
M=M+1 
IF(M.GT.J)GOTO  15 

IF(L(M) .NF.lBLANK.ANn.L(l) .NE. ICOMMA) ^OTo  13 

J=J-1 

Do  1<+  K=M»J 

L(K)=L(K+1) 

14  CONTIMUF 
M=M-1 
GOTO  13 

15  CONTINUE 
ISWC=1 
ISWP=0 
N=N1-1 

DO    22    1=1 f J 

IF(L(I)  .EO.IPOINDGOTO    It, 
IF(L(I) .EG.ICOMMA)GOTO    19 
IF(L(T) .LT.IZERO)GOTO    20 
IF(L( I) .GT.ININEJGOTO    20 
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iswc=n 

GOTO  22 

16  CONTINUE 
IF(IS>-'P.E0.1)GOTO  17 
NP=I 

ISWP=1 

lswc=o 

GOTO  22 

17  CONTINUE 
WRITL(IWRITEH.«) 

18  F0RMAT(51H  THE  LINE  HAS  TWO  DECIMAL  POTNTS  WITHOUT  A  CW*  IN» 
19H  RETWEEN./2SH  PLEASE  REENTER  THE  LP'E.V) 

GOTO  10 

19  CONTINUE 
IF(ISWC.EQ.l)  GO  TO  20 
N=N+1 

N0(N)=I-NP 

IF(ISWP.EQ.O)ND(N)=l 

ISWC=1 

ISWP=0 

GOTO  22 

20  CONTINUE 
WRITE(IWRITE»21) 

21  FORMAT (49H  THERE  IS  AN  ILLEGAL  CHARACTER  tm  T'.'E  INPUT  LTNF./ 
1MH  ONLY  POINTS*  SINGLE   COMMAS*  AMn  THE  TEN  nTGIT^  may  ;w    USFD./ 
125H  PLEASE  REFNTFR  THE  LINE./) 

GOTO  10 

22  CONTINUE 
N2=N+1 

ND(N2)=J-NP+1 
IF(ISWP.EQ.0)ND(N2)=1 

I F ( N2 . GT .  NM+1 )  WR I TE  ( I WP I TE » 23 )  N'« » MM 

23  FORMAT(5H  ONLY»I5»24H  MUMPERS  CAN  RE  ENTERED./ 
115H  ONLY  THE  FIRSTr  I5»?'2H  ARE  RFING  PROCESSSE^. ) 

N2=MIN0(N2»NM) 
C 

C  U.RITE  THE  DATA  AS  HOLLERITH  CHARACTERS  ON  CHAMMEL  TUNTT  A"n  P.Ftf)    TT 
C  BACK  FREE-FIELD  FORMAT  (AS  NON-INTEGER  NUMBERS). 

Kl=l 

JP1=J+1 

REWIND  I UN IT 

DO  245  K=1»JP1 

IF  (K.LT.JP1  .AND.  L (K ) .NE. ICOMMA)  GO  TO  ?45 

K2=K-1 

IS=21-K 

DO  241  II=K1»K2 

IJ=IS+II 
241  IRUF(IJ)=L(II) 

WRITE(IUNIT»3) IPUF 

DO  243  II=K1»K2 

IJ=IS+1I 
243  IflUF(TJ)=IBLANK 

Kl=K2+2 
245  CONTINUE 
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REWIND  IUNIT 

DO  247  I=N1»N2 

READ  (IUNITr246)  AM(I) 
2^6  FORMAT (F20.0) 
247  CONTINUE 

IF(AM(N2).EQ.0.)GOTO  25 

IF(N2.EQ.NM)G0T0  26 

N1=N2+1 
C  GO  BACK  TO  GET  ANOTHER  LINE  OF  DATA. 

GOTO  10 
C 

25  CONTINUE 

C  THE  LAST  NUMBER  WAS  ZFRO  SO  ALL  THE  DATA  TS  I"'  AND  REJFCT  THE 
C  ZERO*  OR 

N2=N2-1 

26  CONTINUE 

C  NM  NUMBERS  WERE  FED  IN»  THE  MAXIMUM. 

N1=N2+1 
C 

C  PUT  THE  NUMBERS  IN  ORDER*  FIRST  BY  NUMBER  OF  DIGITS  TO  THE  RIGHT 
C  OF  THE  DECIMAL  POINT*  ND. 

DO  28  I=1»N1 

J1=N1-I 

IFU1.LT.2)  GO  TO  2R 

DO  27  J=2»J1 

K=J-1 

IF(ND(K) .LE.ND(J) )GOTO  27 

A=AM(K) 

AM(K)=AM(J) 

AM(J)=A 

M=ND(K) 

Nn(K)=ND(J) 

ND<J)=M 

27  CONTINUE 
28.  CONTINUE 

C 

C  THEN  PUT  THEM  IN  ORDER  BY  SIZE  OF  THE  MEASUREMENT  SO  TMAT  AMY 

C  DUPLICATE  MEASUREMENTS  WILL  RE  TOGETHER. 

DO  30  I=1»N1 

J1=N1-I 

IF(J1.LT.2)  GO  TO  30 

DO  29  J=2»J1 

K=J-1 

IF(AM(K) .LE.AM(J) )GOTO  29 

A=AM(K) 

AM(K)=AMIJ) 

AM(J)=A 

MrND(K) 

ND(K)=ND(J) 

ND(J)=M 

29  CONTINUE 

30  CONTINUE 
C 

C  REJECT  ANY  DUPLICATE  MEASUREMENTS.   ISWP  IS  TMF  SWITCH  THAT  TFLl.' 
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C  WHETHER  THAT  HAS  BEEN  DONE.   FOR  REJECTION*  BOTH  AM,  Tt-»E  ST7E, 
C  AND  ND»  THE  TOLERANCE,  MUST  HE  THE  SAME. 

ISWP=0 

1  =  0 

J=l 

31  CONTINUE 
1  =  1  +  1 
J=J+1 

32  CONTINUE 
IF(J.GT.N?)GQTO  3<+ 
IF(AM(I) .NE.AM(J) )GOTO  31 
IF(ND(I) .NE. ND( J) )GOTO  31 
N2=N2-1 

ISWP=1 

DO  33  K=J,N2 

K1=K+1 

AM(K)=AM(K1) 

ND(K)=ND(K1) 

33  CONTINUE 
GOTO  32 

31  CONTINUE 

IF(ISWP.EQ.1)WRITE(IWRTTE»35) 

35  F0RMAT(/3«+H  DUPLICATE  MEASUREMENT (S)  PEEVED./) 
C 

C  THE  PAUSE  IS  NEEDEO  TO  PUT  IN  .THE  SPECIAL  TRANSPARENT  PRINTOUT 

C  PAPER.  THE  C  IN  COL.  1  SHOULD  BE  PE"OVED  IF  THIS  OPTIOM  IS  WA^TPP 

C       PAUSE 

REWIND  I UN IT 

WRITE(IWR'ITE,3)IBLANK, (LI  (I)  » 1  =  1 » LID 

WRITE(IUNIT,36) 

36  FORMAT (6 (7X,2HMM,5X,6H( INCH) , IX) ) 
REWIND  IUNIT 

NC=21*IW 

RE AD (IUNIT, 3) (L( I ) , 1=1 »NC ) 

WRITE(IWRITE,37) 

37  FORMAT (1H  ) 

WRITE (I WRITE, 3) (L(I) ,1=1, NO 

WRITE(IWRITE,37) 

REWINn  IUNIT 

Nl=(N2+IW-l)/IW 
C 
C  THE  NEXT   DO   LOOP  PRINTS  THE  OUTPUT. 

1  =  0 

DO  51  11=1, Nl 

Kl  =  l 

K?=NH 
C 

C  THE  NEXT   DO   LOOP  PREPARES  ONE  LINE  OF  THE  TABLE.   EA*~H  TTME 
C  THROUGH  ONE  PAIR  OF  COLUMNS  IS  PREPARED. 

DO  47  12=1, IW 

1  =  1  +  1 

IF(I.GT.N2)G0T0  HH 

CALL  CONVMM(AMd)  ,ND(I)  ,USC(D) 

IF(ND(I) .LT.l) WRITE (IUNIT ,38) AM (I) »USC(I) 
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38  FORMAT ( F7 . 0  *  Fa. 0  * 4X) 

IF(ND(I)  .EQ.l)WRITF(IllMITr3D)  AM(  I)  * USC ( I ) 

39  PORMAT(F7.0.F9.1*3X) 

IF(ND(I) .EQ.2) WRITE (IUNIT » 40) AM( I)  * USC ( I ) 

40  FORMAT(F8.1*F<3.2»2X) 

IF(ND(I)  .EQ. 3) WRITE (TUMI  1*41)  AM(I)  f'ISC(T) 

41  F0RMAT(F9.?»F9.3*1X) 

TF(MD(I)  .EQ. 4) WRITE (IUNIT .42) AM  (II  »USC(I) 

42  FORMAKFln^^Q.I) 
IF(ND(I)  .GT. 4) WRITE (I UNIT* 43) 

43  FORMAT ( 19 (1H  ) ) 
GOTO  45 

44  CONTINUE 
WRITE(IUNTT»43) 

45  CONTINUE 
REWIND  I UNIT 

READ (IUNIT* 46) (LL(K) »K=K1*K2) 
REWIND  IUNIT 

46  FORMAT (19A1) 
K1=K1+NH 
K2=K2+NH 

47  CONTINUE 
K2=K2-NH 
K3=K2+1 

DO  48  J=1»K2 

K=K3-J 

IF(LL(K) .ME.IBLANK)GOTO  <+o 

48  CONTINUE 

49  CONTINUE 

WRITE  (I  WRITE*  50)  (I.L(J)  »J=1*K) 

50  F0RMAT(6(3Al»lX»15Al»lXr Al)  ) 

51  CONTINUE 
C 

C  THE  TABLE  HAS  BEEN  COMPLETED  SO  ASK  IF  TH^Pf"  jS  /\r'OTHFf  OM*-. 
WRITE (I WRITE* 52) 

52  FORMAT (//37H  FNTER  THE  IDENTIFICATION  <CGMMA)  AND. 
125H  WIDTH  FOR  ANOTHER  TA'^LE./ 

150H  TO  ENn  PROGRAM*  ENTER  ANY  ALPHABETICAL  CHTACTFR. /) 

53  ISW1=1 
REWIND  IUNIT 
GOTO  2 

54  CONTINUE 
WRITE(IWRITE*55) 

55  F0RMATC48H  THERE  HAS  BEEN  AN  ERPOR  IN  ENTERING  THF  MAXIMUM i 
113H  TABLE  WIDTH. /42H  PLEASE  RFEMTER  T^F  ID^MTTFIC ation  ANn 
113H  TABLE  WIDTH./) 

REMIND  IUNIT 

GOTO  2 

END 
C 

SUBROUT I NE  CONVMM ( A  » N  t B ) 
C  SUBROUTINE  CONVMM  CONVERTS  MILLIMETRES*  A*  INTO  INCHES*  B. 
C  N   IS  THE  NUMRFR  OF  (SIGNIFICANT)  DIGITS  THERE  SHOULD  ^f:  to  Ttir 
C  RIGHT  OF  THE  DECIMAL  POINT  IN   B.   ^IPST   A   'S  CONVEpTED  t0 
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C  INCHES  MULTIPLIED  RY  THE  PROPER  POWFR  OF  10  S">  TH»T  AS  AN 

C  INTEGER  IT  WILL  HAVE  THE  CORRECT  MUM'J'ER  Or  DIGITS.   ROUNDING  !«; 

C  THEN  CARRIED  OUT. 

R=10.**N 

S=R*A/25.4 

K=INT(S) 

T=FLOAT(K) 

D=S-T 

IF(D.fQ..S)GOTO  1 

IF(D.GT..5)T=T+1. 

GOTO  ? 

1  CONTINUE 
K=M0D(K>2) 
IF(K.EQ.1)T=T+I . 

2  CONTINUE 
R=T/R 
RETURN 
END 
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c 
c 
c 
c 

c 
c 
c 

C  PROGRAM  GMINCH   CONVERTS  FROM  INCHES  TO  MILLIMETRES  -  JUNE  19^u 

C  ROBERT  DAVIES 

C  ROOM  1-141  R.A.B. 

C  EXTENSION  5-2745 

C  GM  RESEARCH  LABORATORIES 

C  GM  TECHNICAL  CENTER 

C  WARREN*  MICHIGAN  48090 

C 

DIMENSION  AM(1000)»L(130)*L1(P0)»LL(114) * 'I'M  1000) *USC(100n) 
DIMENSION  IBUF(20) 
C  THE  TWO  PREVIOUS  LINES  CONTAIN  ALL  REFERENCES  TO  ARPAY  SI7PS 
C  EXCEPT  FOR  SOME  FORMAT  STATEMENTS  AFTER  STATEMFNT  36. 
C 

C  AM  =  THE  US  CUSTOMARY  MEASUREMENT  IN  INCHES 
C  L   =  THE  INPUT  DATA*  HOLLERITH 
C  LL  =  THE  OUTPUT  DATA*  HOLLERITH 

C  ND  =  THE  NUMBER  OP  DIGITS  TO  THE  RIGHT  OF  THE. DECIMAL  POINT 
C       IN  THE  US  CUSTOMARY  INPUT 
C  USC=  THE  METRIC  MEASUREMENT  IN  MILLIMETRES 
C 

DATA  LM»NH*NM/72»19*1000/ 

DATA   IBUF(1)»  I6UF<2)»  IRUF(3)  »TR|JF(4),  TPUMS)* 
1       IBUF(6)*  IBUF(7)#  IRUF(R)*  IR-UF(O)*  TBUF(J.0)» 
1       IBUFClDf  I3UF(12)  »IBUF(13)*IBUF(14)  ,  IBUFU5)  * 
1       IBUF(16) *IBUF(17) »IPUF(18) *IRUF(19) »TBUF(?0) 
1       /1H  *1H  »1H  »1H  *1H  *1H  *tH  *1H  »]H  .  1H  * 
1        1H  »1H  »1H  »1H  *1H  »1H  rl.H  *  1H  *1H  r  1H  / 

DATA  TBLANKf IPLUS» ICO^MA * IPOINT* IZERO* INIME/ 
11H  *1H+»1H* »1H. »1H0»1H9/ 
DATA  IREADrlWRITEf IUNIT/5,5»1/ 
C 

C    THE  ABOVE  DATA  STATEMENT  SETS  THE  INPUT  UNIT  MUMPER*  THr  OUTPUT 
C  UNIT  NUMBER  AND  THE  SCRATCH  UNIT  NUMBER. 
C 

LM1=LM+1 
ISW1=1 
C  ISWr  IS  A  SWITCH  THAT  IS  USED  TO  SUPPRESS  PRINTING  OUT  CERTAIN 
C  INSTRUCTIONS  UNLESS  ASKED  FOR  THE  FIRST  TTME  THROUGH. 
C 

WRITE(IWRITEr97) 
97  FORMAT(30H  ENTER  A  SINGLE  PLUS  SIGN*  +  »/°H  FOR  MORE* 
140H  INFORMATION.  ELSE*  HIT  CARRIAGE  RETURN./) 
RFAD(IREAD»3)I 
IF(I.EQ.IPLUS)ISW1=0 
IF(ISW1.EQ.0)WRITE(IWRTTE*1) 
1  FORMAT  U9H  ENTER  THE  DRAWING  IDENTIFICATION  AND  THF  MftVTMU'"* 
121H  WIDTH  ON  THE  DRAWING/24H  FOR  THE  MILLIMETPF-INCH* 
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148H  CONVERSION  TABLE  ( TN  f'lLLTMFTP^S)  .   P'!T  A  C0MM»/8H  H£Ti?'FcM# 
157H  THE  TWO  ENTRIES.   A  PAIR  OF  COLUMNS  IS  53. 7-U    MTLLTVFTP^Sf 
16H  WIDE./) 
100  IF(ISW1.EG.1)WRITE(IWRITE,52) 
C. 

2  CONTINUE 

C  RETURN  TO  STATEMENT  2  IF  THERE  IS  TO  PF  MORE  THAN  Of'E  TABLr 
C  CALCULATED. 
C 

C  THE  VECTOR   LI   IS  TO  CONTAIN  THE  DRAWING  IDF mtiftcaTtON  AND 
C  MAXIMUM  TABLE  WIDTH  WITH  A  COMMA  TN  BFTWEFN.   IN  ORPEP  TO 
C  SEPARATE  THE  TWOr  THE  COMMA  IS  LOCATED  (BY   j_U)   AFTFn  THF 
C  TRAILING  BLANKS  ARE  DROPPED  OFF. 
READ(IREAD»3) (LI ( I ) » 1=1 »LM) 

3  FORMAT (136A1) 
DO  4  I=1#LM 
J=LM1-I 

IF(LKJ)  .NE.IBLANK)GOTO  5 

4  CONTINUE 

5  CONTINUE 

DO  6  L11=1»J 

IF(LKLll)  .EQ.ICOMMAJGOTO  7 

6  CONTINUE 
STOP 

7  CONTINUE 
L11=L11+1 

C  CHECK  FOR  NONNUMERIC  CHARACTERS  AFTER  COMMA 
DO  70  I=L11»J 

IF(LKI)  .GT.ININE)  GO  TO  54 
IF(LKI)  .LT.IZERO)  GO  TO  54 

70  CONTINUE 

C  THE  MAXIMUM  WIDTH  OF  THE  PRINTOUT  IN  MILLIMETRES  TS  IN  THF  VECTOP 

C  LI   FROM   Lll   TO   J   AS  HOLLERITH  CHARACTERS.   TO  RECOVER  IT 

C  AS  A  FLOATING  POINT  NUMBER*  IT  IS  WRITTEN  INTO  CHANNEL  IUNTT  AMD 

C  READ  BACK  OUT.   EVENTUALLY  IT  IS  CONVERTED  INTO   IW»   tHF 

C  NUMBER  OF  COLUMN  PAIRS.   EACH  COLUMN  PAIR  REQUIRES  21  SPACF^  on 

C  53.34  MILLIMETRES*  AND  THERE  CAN  BE  NO  MORE  THAN  f-    PAIRS. 

IS=20-J 

DO  71  II=L11»J 

IJ=IS+II 

71  IBUF(TJ)=L1,(II) 
WRITE  (IUNIT»72)  IBUF 

72  FORMAT(20A1) 
DO  73  II=L11»J 
IJ=IS+II 

73  IBUF(IJ)=IPLANK 
REWIND  IUNIT 
READ(IUNITr76)W 

76  FORMAT(F20.0) 
REWIND  IUNIT 
Lll=Lll-2 
IW=INT(W/53.34) 
IW=MAX0(1»IW) 
IW=MIN0(6#IW) 
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if(iswi.eq.o)write<twrite»8) 

fl  format (48h  entfr  the  inch  dimensions  on  a  lin?7  with  commas"'* 
11?h  in  between. mf>h  the  computer  will  k^e"  asking  eor  amothep* 
124h  line  of  imput  until  y0u/31h  indicate  that  you  have  mo  more* 
135h  input  ry  entering  0.  (zero)  as  thf/13h  last  number./ 
143h  show  the  decimal  point  even  with  tmtf^rs./ 
161h  be  careful  if  you  enter  a  dimension  large"  than  1^00  t^'c^fs*/ 
155h  do  not  enter  a  tolerance  smaller  than  0.000  1  inch  / 
160h  a  dimension  cannot  exceed  r  000  00o  tim^s  its  tolerance  /) 
if(isw1.e0.1)write(iwrite»9) 

9  f0rmat(51h  enter  the  inch  dt'lfnsions*  inotcattng  t^e  last  ^mf» 
huh  by  0.  (zero)  ./) 

N1=1 
C 

10  CONTINUE 

C  RETURN  TO  STATEMENT  10  IF  MORR  THAN  ONE  LINE  TS  NEEDED  FOD  TH^ 
C  INPUT  DATA  FOR  ONE  TABLE. 

READ(IREAR»3) (L( I ) » 1=1 »LM) 
C  KEAD  THE  INPUT  DATA  AS  HOLLFRITH  CHARACTERS  AND  THEM  PFJE<~T 
C  TRAILING  PLANKS. 
121  DO  11  I=1*LM 

J=LM1-I 

IF(LU)  .NF.IRLANK)GOTO  1?. 

11  CONTINUE 

12  CONTINUE 
C 

C  REJECT  A  TERMINAL  COMMA. 

M=0 

IF(L( J) .NE.ICOMMA)OOTO  13 

L(J)=TBLANK 

J=J-1 

IF(J.GT.l)  GO  TO  121 
C  ELIMINATE  LEADING  COMMAS 

C  INSPECT  THE  INPUT  FOR  ILLEGAL  CHARACTERS'  TMHEPDEO  PLANKS  (REJECT 
C  THEM)*  CONSECUTIVE  DECIMAL  POTNTS  WTTHOi.lT  A  COMMA  BETWEEN* 
C  AND  CONSECUTIVE  COMMAS  WITHOUT  NUMERICAL  rHARArTEPS  BETWEFM. 
C  FINALLY*  COUNT  THE  NUMBER  OF  DIGITS  AFTFR  THE  npcTMAL  POINT. 

13  CONTINUE 
M=M+1 
IF(M.GT.J)GOTO  15 

IF(L(M) .NE.IBLANK.ANO.L(l) .ME. ICOMMA) GOTO  13 

J=J-1 

DO  14  K=M»J 

L(K)=L(K+1) 

14  CONTINUE 
M=M-1 
GOTO  13 

15  CONTINUE 
ISWC=l 
ISWP=0 
N=N1-1 

DO    22    1  =  1, J 

IF(L(I)  .EO.IPOINDGOTO    lb 

IF(L(I) .EO.ICOMMA)GOTO    19 
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IF(L(I) .LT.IZrR0)GOT0    ?0 
F(L(I)  .6T.ININE)G0T0    ?0 
ISWC=0 
GOTO    22 

16  CONTINUE 
IFtlSWP.EQ.DGOTO    17 
NP=I 

ISWP=1 
ISWC=0 
GOTO  ?2 

17  CONTINUE 

WRITE ( IWRITE»1P) 
IB  F0RMAT(51H  THE  LIME  HAS  fWo  DECIMAL  POINTS  WITHOUT  A  CO^MA  J\t 
19H  BETWEEN. /25H  PLEASE  REFNTER  TH^  LINE./) 
GOTO  10 

19  CONTINUE 
IF(ISWC.EO.l)  GO  TO  2D 
N=N+1 

ND(N)=I-NP-1 
IF(ISWP.EQ.O)ND(N)=n 
ISWC=1 

ISWP=n 
GOTO  22 

20  COfJTINUF 
WRITEC IWRITE»?1 ) 

21  F0RMATU9H  THERE  IS  AM  ILLEGAL  CHARACTER  tm  THE  IN"UT  I.  INr./ 
1(S1H  ONLY  POINTS*  SINGLE   COMMAS*  AMD  THF  TrN  nTGTT<;  jvjaY  3^  USFD./ 
125H  PLEASE  REFMTFR  THF  LINE./) 

GOTO  10 

22  CONTINUE 
N2=N+1 
ND(N2)=J-NP 
IF(ISWP.EO.0)ND(N2)=0 

I F ( N2 . GT . NM+ 1 ) WR I TF ( I WR I TF  »  23 ) NM »  MM 

23  FORMAT (5H  0NLYfI5»?4H  NUMBERS  CAN  ^F  ^NTEnFD./ 
11SH  ONLY  THE  FIRST,  I5»??H  ARE  BEING  RROCF<;SSEn. ) 

N2=MIN0(N2#NM) 
C 

C  WRITE  THE  DATA  AS  HOLLERITH  CHARACTERS  ON  CHANNEL  IUNIT  AMD  prfln  TT 
C  PACK  FREE-FIELD  FORMAT  (AS  NON-INTEGER  NUMBERS). 

Kl  =  l 

JP1=J+1 

REWIND    I UN IT 

DO    2<+c.    K  =  l  f  JP1 

IF  (K.LT.JP1  .AND.  L (K) .NE. ICOMMA)  GO  T^  ?45 

K2=K-1 

IS=21-K 

DO  241  II=K1,K2 

TJ=IS+II 
241  IBUF(IJ)=L(II) 

WRITE(IUNIT»3) IRUF 

DO  243  II=K1»K2 

IJ=IS  +  H 
243  IRUF(IJ)=IBLANK 
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Kl=K2+2 
215  CONTINUE 

REWIND  IUNIT 

DO  247  I=N1»N2 

READ  (IUNIT»246>  AM(I) 

246  FORMAT (F20.0) 

247  CONTINUE 
IF(AM(N2).EQ.0.)GOTO  25 
IF(N2.EQ.NM)G0T0  26 
N1=N2+1 

C  GO  BACK  TO  GET  ANOTHER  LINE  OF  DATA. 

GOTO  10 
C 

25  CONTINUE 

C  THE  LAST  NUMBER  WAS  ZERO  SO  ALL  THE  DATA  IS  IN  ANP  PEJ^CT  THE 
C  ZEROr  OR 

N2=N2-1 

26  CONTINUE 

C  NM  NUMBERS  WERE  FED  IN*  THP  MAXIMUM. 

N1=N2+1 
C 

C  PUT  THE  NUMBERS  IN  ORDER ,    FIRST  BY  NUMBER  OF  nTGITS  TO  TH^  RlGwT 
C  OF  THE  DECIMAL  POINT*  ND. 

DO  28  I=lrNl 

J1=N1-I 

IFU1.LT.2)  GO  TO  28 

DO  27  J=2»J1 

K=J-1 

IF(ND(K).LE.ND(J))GOTO  27 

A=AM(K> 

AM(K)=AM(J) 

AM(J)=A 

M=ND(K) 

ND(K)=ND(J) 

ND(J)=M 


27  CONTINUE 

C 

c 

28  CONTINUE 

THEN  PUT  THEM  IN  ORDER  BY  SIZE 

OF  THF  MEASUREMENT  SO  TMAT  fMY 

c 

DUPLICATE  MEASUREMENTS  WILL  RE 
DO  30  I=1»N1 
J1=N1-I 

IFU1.LT.2)  GO  TO  30 
DO  29  J=2»J1 
K=J-1 

IF(AM(K).LE.AM(J) )GOTO  29 
A=AM(K) 
AM(K)=AM(J) 
AM(J)=A 
M=ND(K) 
Nn(K)=ND(J) 
ND(J)=M 

29  CONTINUE 

30  CONTINUE 

TOGETHER. 
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c 

C  REJECT  ANY  DUPLICATE  MEASUREMENTS.   ISWR  TS  T-,r    S'  TTC"  That  jn 
C  fcHETHFR  THAT  HAS  3EEN'  DONE.   FOR  REJECTION*  ROTH  *M»  THE  ST7r. 
C  AND  MD»  THE  TOLERANCE*  MUST  HE  THF  SAME". 

ISWP=0 

1  =  0 

J=l 

31  CONTINUE 
1  =  1  +  1 
J=J+1 

32  CONTINUE 
IF(J.GT.N?)GOTO  34 
IF(AM(I) .NE.AM( J) )GOT^  31 
IF(NU(I) .NE.ND(J) )GOTO  31 
N2=N2-1 

ISWP=1 

DO  33  K=J»N2 

K1=K+1 

AM(K)=AM(K1) 

ND(K)=ND(K1) 

33  CONTINUE 
GOTO  32 

31  CONTINUE 

IF(ISWP.E0.1)WRITF<lV'I?TTr»35> 

35  F0RMAT(/34H  DUPLICATE  MEASUREMENT (S)  vF.^.Wf),/) 
C 

C  THE  PAUSE  IS  NEEDED  TO  PUT  IN  THE  SPECIAL  TRANSPARENT  r»PP'TOUT 
C  PAPER.  THE  C  IN  COL.  1  SHOULD  HE  PE^OVED  tF  ThtS  ^TK'i  IS  >-m*'-l 
C       PAUSE 

REWIND  IUNIT 

WRITE  (I  WRITE  1 3)  IBLANK»  (l.l  ( I )  »  T  =  1»L1 1 ) 

WRITE(IUNIT>36) 

36  FORMAT  (M7Xr2HMM»5X»6'H(  INCH)  >1X)  ) 
REWIND  IUNIT 

NC=21*IW 

READ ( IUNIT , 3) (L( I ) » 1=1 »NC) 

WRITF (IWRITE»37) 

37  FORMAT (1H  ) 

WRITE  (I  WRITER)  (L(I)  »I  =  1  »MC) 

WRITE(IWRITE»37) 

RFWIND  TUN IT 

Nl  =  (N2+IW-!'')/IW 
C 
C  THE  NEXT   DO   LOOP  PRINTS  THE  OUTPUT. 

1  =  0 

DO  51  11=1 #N1 

Kl  =  l 

K2=NH 
C 

C  THE  NEXT   DO   LOOP  PREPARES  ONE  LINE  r>F  T'iF  T^LF.   EP-^H  TT"E 
C  THROUGH  ONE  PMR  OF  COLUMNS  IS  PREFER™. 

DO  47  12=1 »IW 

IF(I.GT.N2)GOTO  44 
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call  convin(am(d  »nd(T) »uscm ) 

IF(ND(I) .LT.1)WRITE( IUNIT f3K)USC(T)  , A"(T) 

38  FORMAT(F7.0»F8.0»4X) 

IF(Nn(I)  .F0.1)WRITE(TUNIT.39)USC(n  ,Af'(I) 

39  FORMAT(F7.0»F9.1»3X) 

IF(ND(I)  .EQ.2>WRITE(IUNIT,40)USC(I)  .  AM  (TO 

40  FORMAT(F8.1rFc».2»2X) 

IF(ND(I)  .  FQ. 3) WRITE (IUNIT, 41 )USC(T)  ,  A'(T) 

41  FORMAT(F9.2»F9.3r IX) 

IF(ND(I)  iEGi.  4)  WRITE  (IUNIT,  42  )USC(T)  ,  ftM(T) 

42  F0RMAT(F10.3,F9.4) 
IF(ND(I) .GT. 4) WRITE (I UNIT, 43) 

43  F0RMAT(19(1H  ) ) 
GOTO  45 

44  CONTINUE 
WRITE(IUNTT,43) 

45  CONTINUE 
REWINn  IUNIT 

READ (IUNIT, 46) (LL(K) ,K=K1.K2) 
REWIND  IUNIT 

46  FORMAT (19A1 > 
K1=K1+NH 
K2=K2+NH 

47  CONTINUE 
K2=K2-NH 
K3=K2+1 

00  4R  J=1,K2 

K=K3-J 

IF(LL(K) .NE.IBLANK)GOTO  49 

48  CONTINUE 

49  CONTINUE 

WRITEf IWHlTErSO) (LL(j) ,J=1  ,K) 

50  FORMAT (6 (3A1. IX , 15 A 1 , IX, A! ) ) 

51  CONTINUE 
C 

C  THE  TABLE  HAS  BEEN  COMPLETFO  SO  ASK  IF  TH^RF  *S  f^'OTHFP  0Mr. 
WRITE(IWRITE»52) 
t>2  F0RMAT(//37H  ENTER  THE  IDENTIFICATION  (CO'^'A)  AND, 
125H  WIDTH  FOR  ANOTHER  TABLE./ 
150H  TO  END  PROGRAM*  ENTER  AMY  ALPHARETICM  CHnPACT^P. /) 

53  ISWl=l 
REWIND  IUNIT 
GOTO  2 

54  CONTINUE 
WRITF(IWRTTE,55) 

55  F0RMAT(46M  TH^RE  HAS  BEEN  AN  FR^OP  IM  ENTE"INO  THE  MAYTMU*', 
113H  TABLE  WIDTH. /42H  PLEASE  PFEMTrr>  Tv'E  IDENTIFICATION  AN^  T',r. 
113H  TABLE  WIDTH./) 

REWIND  TUNIT 

GOTO  2 

END 
C 

SUBROUTINE  CONVlN(A.MtR) 
C  S'JBROUTI.iF  CONVIN  CONVERTS  INCHES*  A,  INTO  MILLIMETRES »  T. 
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C  N   IS  TML  NUMBER  OF  (SIGNIFICANT)  DT6TTS  T<~>  V ,"-  RTOHT  T  Tmc 

C  DECIMAL  POINT  IN   A.   A   TS  CONVERTED  To.  T!  T'TFO^P   "   WHTCH 

C  CONTAINS  EXACTLY  TMF  SIGNIFICANT  OIGITS  nc  &,'      mo  |Wf>RF  A'"-  \m 

C  LESS.   K   IS  TO  BF  MULTIPLIED  BY  25^»  BUT»  BECAUSE  THF  HOMFYWn  L 

C  COMPUTER  CANNOT  HANDLE  DIRECTLY  AN  TNTFgE"  LARGER  THAN   «  "^R  F.O? 

C  K»   HFFORf  BEING  'UJLTTPLTFO  BY  T5^»  COULP  BF  in  LARGE0  THAN 

C  33  0?6.   THER<~FOKF   K   IS  or>0«EN  INTO   Kir  T  \e    RIGHT  F<MIR  "TjTTc;, 

c  and  k?»  the  kfst  df  k. 

M=MAXO(Nrl ) 

K=TNT(A*10.**M+.S) 

Kl=MOO(K» 1000") 

K?=(K-KD/10000 

L1=25<**K1 

L2=254*K2 

L3=M0B(Llrl00) 

Ll=Ll/lflO 

IF(L3.EO.S0)GOTO  1 

TF(L3.GT.B0)L1=L1+1 

GOTO  ? 

1  CONTINUE 
L3=M0n(Ll»2) 
IF(L3.EQ. 1)L1=L1+1 

2  CONTINUE 
P=FLOAT(L?)/10.**(,/-5) 
!=!}+FLOAT  (L1)/10.**(V-1  ) 
RETUf  ■■"! 

END 
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ematician and  theoretical  physicist.  Topics  in  mathe- 
matical statistics,  theory  of  experiment  design,  numeri- 
cal analysis,  theoretical  physics  and  chemistry,  logical 
design  and  programming  of  computers  and  computer 
systems.  Short  numerical  tables.  Issued  quarterly.  An- 
nual subscription:  Domestic,  $9.00;   Foreign,  $11.25. 

DIMENSIONS/NBS  (formerly  Technical  News  Bul- 
letin)— This  monthly  magazine  is  published  to  inform 
scientists,  engineers,  businessmen,  industry,  teachers, 
students,  and  consumers  of  the  latest  advances  in 
science  and  technology,  with  primary  emphasis  on  the 
work  at  NBS.  The  magazine  highlights  and  reviews  such 
issues  as  energy  research,  fire  protection,  building  tech- 
nology, metric  conversion,  pollution  abatement,  health 
and  safety,  and  consumer  product  performance.  In  addi- 
tion, it  reports  the  results  of  Bureau  programs  in 
measurement  standards  and  techniques,  properties  of 
matter  and  materials,  engineering  standards  and  serv- 
ices, instrumentation,  and  automatic  data  processing. 

Annual  subscription:  Domestic,  $9.45;  Foreign,  $11.85. 

NONPERIODICALS 

Monographs — Major  contributions  to  the  technical  liter- 
ature on  various  subjects  related  to  the  Bureau's  scien- 
tific and  technical  activities. 

Handbooks — Recommended  codes  of  engineering  and 
industrial  practice  (including  safety  codes)  developed 
in  cooperation  with  interested  industries,  professional 
organizations,  and  regulatory  bodies. 

Special  Publications — Include  proceedings  of  confer- 
ences sponsored  by  NBS,  NBS  annual  reports,  and  other 
special  publications  appropriate  to  this  grouping  such 
as  wall  charts,  pocket  cards,  and  bibliographies. 

Applied  Mathematics  Series — Mathematical  tables, 
manuals,  and  studies  of  special  interest  to  physicists, 
engineers,  chemists,  biologists,  mathematicians,  com- 
puter programmers,  and  others  engaged  in  scientific 
and  technical  work. 

National  Standard  Reference  Data  Series — Provides 
quantitative  data  on  the  physical  and  chemical  proper- 
ties of  materials,  compiled  from  the  world's  literature 
and  critically  evaluated.  Developed  under  a  world-wide 


program  coordinated  by  NBS.  Program  under  authority 
of  National   Standard   Data  Act    (Public   Law   90-396). 

NOTE:  At  present  the  principal  publication  outlet  for 
these  data  is  the  Journal  of  Physical  and  Chemical 
Reference  Data  (JPCRD)  published  quarterly  for  NBS 
by  the  American  Chemical  Society  (ACS)  and  the  Amer- 
ican Institute  of  Physics  (AIP).  Subscriptions,  reprints, 
and  supplements  available  from  ACS,  1155  Sixteenth 
St.  N.  W.,  Wash.  D.  C.  20056. 

Building  Science  Series — Disseminates  technical  infor- 
mation developed  at  the  Bureau  on  building  materials, 
components,  systems,  and  whole  structures.  The  series 
presents  research  results,  test  methods,  and  perform- 
ance criteria  related  to  the  structural  and  environmen- 
tal functions  and  the  durability  and  safety  character- 
istics of  building  elements  and  systems. 

Technical  Notes — Studies  or  reports  which  are  complete 
in  themselves  but  restrictive  in  their  treatment  of  a 
subject.  Analogous  to  monographs  but  not  so  compre- 
hensive in  scope  or  definitive  in  treatment  of  the  sub- 
ject area.  Often  serve  as  a  vehicle  for  final  reports  of 
work  performed  at  NBS  under  the  sponsorship  of  other 
government  agencies. 

Voluntary  Product  Standards — Developed  under  pro- 
cedures published  by  the  Department  of  Commerce  in 
Part  10,  Title  15,-  of  the  Code  of  Federal  Regulations. 
The  purpose  of  the  standards  is  to  establish  nationally 
recognized  requirements  for  products,  and  to  provide 
all  concerned  interests  with  a  basis  for  common  under- 
standing of  the  characteristics  of  the  products.  NBS 
administers  this  program  as  a  supplement  to  the  activi- 
ties of  the  private  sector  standardizing  organizations. 

Federal  Information  Processing  Standards  Publications 
(FIPS  PUBS) — Publications  in  this  series  collectively 
constitute  the  Federal  Information  Processing  Stand- 
ards Register.  Register  serves  as  the  official  source  of 
information  in  the  Federal  Government  regarding  stand- 
ards issued  by  NBS  pursuant  to  the  Federal  Property 
and  Administrative  Services  Act  of  1949  as  amended, 
Public  Law  89-306  (79  Stat.  1127),  and  as  implemented 
by  Executive  Order  11717  (38  FR  12315,  dated  May  11, 
1973)  and  Part  6  of  Title  15  CFR  (Code  of  Federal 
Regulations). 

Consumer  Information  Series — Practical  information, 
based  on  NBS  research  and  experience,  covering  areas 
of  interest  to  the  consumer.  Easily  understandable 
language  and  illustrations  provide  useful  background 
knowledge  for  shopping  in  today's  technological 
marketplace. 

NBS  Interagency  Reports  (NBSIR) — A  special  series  of 
interim  or  final  reports  on  work  performed  by  NBS  for 
outside  sponsors  (both  government  and  non-govern- 
ment). In  general,  initial  distribution  is  handled  by  the 
sponsor;  public  distribution  is  by  the  National  Technical 
Information  Service  (Springfield,  Va.  22161)  in  paper 
copy  or  microfiche  form. 


Order  NBS  publications  (except  NBSIR's  and  Biblio- 
graphic Subscription  Services)  from:  Superintendent  of 
Documents,  Government  Printing  Office,  Washington, 
D.C. 20402. 


BIBLIOGRAPHIC  SUBSCRIPTION  SERVICES 


The  following  current-awareness  and   literature-survey 
bibliographies  are  issued  periodically  by  the  Bureau: 
Cryogenic    Data    Center    Current    Awareness    Service 

A    literature    survey    issued    biweekly.    Annual    sub- 
scription:  Domestic,  $20.00;  foreign,  $25.00. 

Liquefied  Natural  Gas.  A  literature  survey  issued  quar- 
terly. Annual  subscription:  $20.00. 

Superconducting    Devices    and    Materials.    A    literature 


survey  issued  quarterly.  Annual  subscription:  $20.00. 
Send  subscription  orders  and  remittances  for  the  pre- 
ceding bibliographic  services  to  National  Technical 
Information  Service,  Springfield,  Va.  22161. 

Electromagnetic  Metrology  Current   Awareness  Service 

Issued  monthly.  Annual  subscription:  $100.00  (Spe- 
cial rates  for  multi-subscriptions).  Send  subscription 
order  and  remittance  to  Electromagnetics  Division, 
National  Bureau  of  Standards,  Boulder,  Colo.  80302. 
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